(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    116841,       3045]
NotebookOptionsPosition[    101179,       2788]
NotebookOutlinePosition[    101970,       2814]
CellTagsIndexPosition[    101834,       2808]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\:5b9e\:9a8c\:62a5\:544a\:ff1a\:4ea4\:6d41\:7535\:6865", "Title",
 CellChangeTimes->{{3.78229211217321*^9, 3.7822922335376167`*^9}, {
  3.7822924625790014`*^9, 
  3.7822924685505257`*^9}},ExpressionUUID->"8188612c-7ce9-4259-a803-\
b1f1eaae1005"],

Cell[BoxData[
 RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.78234611563787*^9, 3.7823461179556723`*^9}, {
  3.7823461674112015`*^9, 3.7823461834492893`*^9}},
 CellLabel->
  "In[498]:=",ExpressionUUID->"c927d000-e8ba-40f2-b881-5029808c0946"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"XL", "=", 
  RowBox[{"\[Omega]", " ", "L"}]}]], "Input",
 CellChangeTimes->{{3.782292671393944*^9, 3.7822926748966107`*^9}, {
  3.782298272409154*^9, 3.782298283256149*^9}, {3.7823003221497545`*^9, 
  3.782300326498122*^9}, {3.7823622296167603`*^9, 3.78236223092834*^9}},
 CellLabel->
  "In[499]:=",ExpressionUUID->"54760058-b8fc-48e9-bea1-78d1299388a6"],

Cell[BoxData[
 RowBox[{"L", " ", "\[Omega]"}]], "Output",
 CellChangeTimes->{
  3.7822925288753166`*^9, {3.782292653526764*^9, 3.7822926763208017`*^9}, {
   3.782298265523529*^9, 3.7822983012264028`*^9}, 3.7823003276770363`*^9, 
   3.7823460947741213`*^9, 3.782346223656602*^9, {3.7823621338624344`*^9, 
   3.7823621608909206`*^9}, 3.782362235238625*^9, 3.7823626033468723`*^9},
 CellLabel->
  "Out[499]=",ExpressionUUID->"e7f30582-1215-4465-a1a2-09249555281e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Unprotect", "[", "C", "]"}]], "Input",
 CellChangeTimes->{{3.782300297397686*^9, 3.782300310536505*^9}},
 CellLabel->
  "In[500]:=",ExpressionUUID->"5c98801f-bc52-4ded-b014-ce3811cce6f1"],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellChangeTimes->{{3.7823003035601616`*^9, 3.7823003119737015`*^9}, 
   3.7823462265733924`*^9, 3.7823621636621523`*^9, 3.782362237265163*^9, 
   3.7823626069388885`*^9},
 CellLabel->
  "Out[500]=",ExpressionUUID->"40f7b770-e6b8-4739-beef-a594d85e7c63"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "C", "]"}]], "Input",
 CellChangeTimes->{{3.7823002892843657`*^9, 3.782300292904657*^9}},
 CellLabel->
  "In[501]:=",ExpressionUUID->"08c9a06d-3265-455f-a7bf-2cd567e45311"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"XC", "=", 
  RowBox[{"1", "/", 
   RowBox[{"(", 
    RowBox[{"\[Omega]", " ", "C"}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.7822925343317575`*^9, 3.782292546486255*^9}, 
   3.782300285441656*^9, {3.7823622427569923`*^9, 3.7823622450447316`*^9}},
 CellLabel->
  "In[502]:=",ExpressionUUID->"63be9049-3f41-4d61-978e-b4a3dd8d4222"],

Cell[BoxData[
 FractionBox["1", 
  RowBox[{"C", " ", "\[Omega]"}]]], "Output",
 CellChangeTimes->{3.782292548304395*^9, 3.7822983042612453`*^9, 
  3.7823003176567345`*^9, 3.782346231686757*^9, 3.7823621691169567`*^9, 
  3.782362246093667*^9, 3.7823626108317327`*^9},
 CellLabel->
  "Out[502]=",ExpressionUUID->"e14e9b41-b944-4b19-a7b6-0836aeb70797"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{"<<", "Notation`"}], "\n", 
 RowBox[{"Symbolize", "[", 
  RowBox[{"ParsedBoxWrapper", "[", 
   RowBox[{"SubscriptBox", "[", 
    RowBox[{"\"\<_\>\"", ",", "\"\<_\>\""}], "]"}], "]"}], 
  "]"}], "\n"}], "Input",
 CellChangeTimes->{{3.7822963382207894`*^9, 3.7822963382265205`*^9}},
 CellLabel->
  "In[480]:=",ExpressionUUID->"f05a5f3f-5090-4736-b32a-5e6a02e32130"],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"\[CapitalIota]1", ",", "\[CapitalIota]2", ",", "\[CapitalIota]3"}],
   "]"}]], "Input",
 CellChangeTimes->{{3.782294647672529*^9, 3.782294693497168*^9}, {
  3.7822947716030116`*^9, 3.782294775671132*^9}, {3.782296330454268*^9, 
  3.7822963347228527`*^9}, {3.782362250913686*^9, 3.78236226279647*^9}},
 CellLabel->
  "In[503]:=",ExpressionUUID->"b8b57e4a-944d-44ef-8a14-0b23149eda5b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"??", 
  SubscriptBox["\[CapitalIota]", "1"]}]], "Input",
 CellChangeTimes->{{3.7822947521011887`*^9, 3.7822947866208496`*^9}},
 CellLabel->
  "In[187]:=",ExpressionUUID->"e781e34b-8632-4078-9441-fca6d8ada869"],

Cell[BoxData[
 SubscriptBox["\[CapitalIota]", "1"]], "Print", "PrintUsage",
 CellChangeTimes->{3.782346238344987*^9},
 CellTags->
  "Info1873782375038-1664230",ExpressionUUID->"19ad5493-7151-41df-bef0-\
5abf81bd5aa1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["\[CapitalIota]"], "Input",
 CellChangeTimes->{{3.7822947201081285`*^9, 3.7822947241708064`*^9}, {
  3.7823622178019485`*^9, 
  3.7823622199570923`*^9}},ExpressionUUID->"e2bc052c-740f-434f-b776-\
50f95d4d0fd2"],

Cell[BoxData[
 SubscriptBox["\[CapitalIota]", "1"]], "Output",
 CellChangeTimes->{3.782294725067578*^9, 3.782299154687231*^9},
 CellLabel->
  "Out[136]=",ExpressionUUID->"284435bf-64dd-426c-8470-c2e89ad5d327"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"\[CapitalIota]1", ",", "\[CapitalIota]2", ",", "\[CapitalIota]3"}],
   "]"}]], "Input",
 CellChangeTimes->{{3.7823628248246856`*^9, 3.7823628380158033`*^9}},
 CellLabel->
  "In[567]:=",ExpressionUUID->"1abf8716-0490-4e08-b5cd-6e22d3f00c64"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"equ", "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"I", "  ", "XL"}], "+", "r"}], ")"}], "\[CapitalIota]1"}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"\[CapitalIota]1", " ", "-", "\[CapitalIota]3"}], ")"}], "R2"}],
     "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"\[CapitalIota]1", "-", "\[CapitalIota]2"}], ")"}], "RA"}]}], "==",
    "0"}]}]], "Input",
 CellChangeTimes->{{3.7822925781179066`*^9, 3.7822925840919*^9}, {
  3.782292627984521*^9, 3.7822926473108387`*^9}, {3.782292696013107*^9, 
  3.78229293131789*^9}, {3.782294617225438*^9, 3.7822946275652995`*^9}, {
  3.7822971874428825`*^9, 3.782297189817526*^9}, {3.78236226945373*^9, 
  3.7823623079371085`*^9}, {3.7823625938152857`*^9, 3.782362594611641*^9}},
 CellLabel->
  "In[568]:=",ExpressionUUID->"a2dcb186-c12c-4229-81f4-18131e6d8b61"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"RA", " ", 
    RowBox[{"(", 
     RowBox[{"\[CapitalIota]1", "-", "\[CapitalIota]2"}], ")"}]}], "+", 
   RowBox[{"R2", " ", 
    RowBox[{"(", 
     RowBox[{"\[CapitalIota]1", "-", "\[CapitalIota]3"}], ")"}]}], "+", 
   RowBox[{"\[CapitalIota]1", " ", 
    RowBox[{"(", 
     RowBox[{"r", "+", 
      RowBox[{"\[ImaginaryI]", " ", "L", " ", "\[Omega]"}]}], ")"}]}]}], 
  "\[Equal]", "0"}]], "Output",
 CellChangeTimes->{
  3.7822928695205965`*^9, {3.782292900668124*^9, 3.782292932546237*^9}, 
   3.782294636025676*^9, 3.782294708774855*^9, 3.782296357999606*^9, {
   3.7822971906313314`*^9, 3.782297198673813*^9}, 3.7822973121811247`*^9, {
   3.7822982901247425`*^9, 3.7822983113936834`*^9}, {3.782299221108798*^9, 
   3.782299223799114*^9}, {3.782300334863744*^9, 3.7823003409145746`*^9}, 
   3.7823462423731804`*^9, 3.782362309733154*^9, {3.782362595943714*^9, 
   3.7823626169026117`*^9}, 3.7823628467569*^9, 3.782364161674912*^9},
 CellLabel->
  "Out[568]=",ExpressionUUID->"77fdd6bd-c0b3-43ef-87d5-cf93e03b8d06"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"equ1", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"\[CapitalIota]2", " ", "R3"}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"\[CapitalIota]2", "-", "\[CapitalIota]1"}], ")"}], "RA"}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"\[CapitalIota]2", "-", "\[CapitalIota]3"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"R0", "-", 
       RowBox[{"I", " ", "XC"}]}], ")"}]}]}], "\[Equal]", "0"}]}]], "Input",
 CellChangeTimes->{{3.7822931059552364`*^9, 3.7822931827338657`*^9}, {
  3.7823623148204203`*^9, 3.7823623627051954`*^9}},
 CellLabel->
  "In[569]:=",ExpressionUUID->"8021c52f-00a3-49f3-b687-e77b13e2848a"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"R3", " ", "\[CapitalIota]2"}], "+", 
   RowBox[{"RA", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "\[CapitalIota]1"}], "+", "\[CapitalIota]2"}], ")"}]}], 
   "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"\[CapitalIota]2", "-", "\[CapitalIota]3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"R0", "-", 
      FractionBox["\[ImaginaryI]", 
       RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}]}], "\[Equal]", 
  "0"}]], "Output",
 CellChangeTimes->{3.782293183548686*^9, 3.782294710932666*^9, 
  3.7822963650138483`*^9, 3.782297314620644*^9, 3.782298314819521*^9, 
  3.782299242351489*^9, 3.7823003438686905`*^9, 3.7823462451797132`*^9, 
  3.782362363904419*^9, 3.782362620183852*^9, 3.7823628493837633`*^9, 
  3.782364164003786*^9},
 CellLabel->
  "Out[569]=",ExpressionUUID->"e50abe5f-7897-4395-8c5a-bf13beb6cebb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"equ2", "=", 
  RowBox[{
   RowBox[{"U", "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"\[CapitalIota]3", "-", "\[CapitalIota]2"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"R0", "-", 
       RowBox[{"I", " ", "XC"}]}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"\[CapitalIota]3", "-", "\[CapitalIota]1"}], ")"}], "R2"}]}], 
   "\[Equal]", "0"}]}]], "Input",
 CellChangeTimes->{{3.7822932588843*^9, 3.782293284486305*^9}, {
  3.7822933172239037`*^9, 3.7822934476535287`*^9}, {3.7823623692657623`*^9, 
  3.782362396091713*^9}},
 CellLabel->
  "In[516]:=",ExpressionUUID->"e46f925f-2261-495a-86d7-5501a9f14aee"],

Cell[BoxData[
 RowBox[{
  RowBox[{"U", "+", 
   RowBox[{"R2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "\[CapitalIota]1"}], "+", "\[CapitalIota]3"}], ")"}]}], 
   "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "\[CapitalIota]2"}], "+", "\[CapitalIota]3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"R0", "-", 
      FractionBox["\[ImaginaryI]", 
       RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}]}], "\[Equal]", 
  "0"}]], "Output",
 CellChangeTimes->{3.7822934485830436`*^9, 3.782296367236903*^9, 
  3.7822973166631403`*^9, 3.7822983178185034`*^9, 3.782299259112176*^9, 
  3.7823003460967517`*^9, 3.782346247979189*^9, 3.782362397270611*^9, 
  3.7823626225364575`*^9, 3.7823628519709077`*^9},
 CellLabel->
  "Out[516]=",ExpressionUUID->"7e602c08-78e3-48f3-ba9b-942a54d4cdab"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"equ", ",", "equ1", ",", "equ2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "\[CapitalIota]1", ",", "\[CapitalIota]2", ",", "\[CapitalIota]3"}], 
    "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7822935423483143`*^9, 3.7822935458195443`*^9}, {
   3.782293599320244*^9, 3.7822936398285437`*^9}, 3.782297629881417*^9, 
   3.7822983266269865`*^9, {3.7823624059713683`*^9, 3.7823624135979576`*^9}, {
   3.7823641424577465`*^9, 3.782364188588053*^9}},
 CellLabel->
  "In[573]:=",ExpressionUUID->"7cea025c-833b-4bc1-8c5d-d0b696334452"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"\[CapitalIota]1", "=", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"R2", " ", "U", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "R2"}], " ", 
           RowBox[{"(", 
            RowBox[{"R0", "+", "R3", "+", "RA", "-", 
             FractionBox["\[ImaginaryI]", 
              RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}], "+", 
          RowBox[{"RA", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "R0"}], "+", 
             FractionBox["\[ImaginaryI]", 
              RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}]}], ")"}]}], 
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "R2"}], " ", 
             RowBox[{"(", 
              RowBox[{"R0", "+", "R3", "+", "RA", "-", 
               FractionBox["\[ImaginaryI]", 
                RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}], "+", 
            RowBox[{"RA", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "R0"}], "+", 
               FractionBox["\[ImaginaryI]", 
                RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}]}], ")"}]}], " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["R2", "2"], "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"R0", "+", "R2", "-", 
              FractionBox["\[ImaginaryI]", 
               RowBox[{"C", " ", "\[Omega]"}]]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"r", "+", "R2", "+", "RA", "+", 
              RowBox[{"\[ImaginaryI]", " ", "L", " ", "\[Omega]"}]}], 
             ")"}]}]}], ")"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"RA", " ", 
            RowBox[{"(", 
             RowBox[{"R0", "+", "R2", "-", 
              FractionBox["\[ImaginaryI]", 
               RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}], "-", 
           RowBox[{"R2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "R0"}], "+", 
              FractionBox["\[ImaginaryI]", 
               RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"R2", " ", "RA"}], "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "R0"}], "+", 
              FractionBox["\[ImaginaryI]", 
               RowBox[{"C", " ", "\[Omega]"}]]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"r", "+", "R2", "+", "RA", "+", 
              RowBox[{"\[ImaginaryI]", " ", "L", " ", "\[Omega]"}]}], 
             ")"}]}]}], ")"}]}]}]]}]}], ",", 
    RowBox[{"\[CapitalIota]2", "=", 
     RowBox[{"-", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"U", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "r"}], "-", "R2", "-", "RA", "-", 
            RowBox[{"\[ImaginaryI]", " ", "L", " ", "\[Omega]"}], "-", 
            RowBox[{
            "\[ImaginaryI]", " ", "C", " ", "r", " ", "R0", " ", "\[Omega]"}],
             "-", 
            RowBox[{
            "\[ImaginaryI]", " ", "C", " ", "R0", " ", "R2", " ", 
             "\[Omega]"}], "-", 
            RowBox[{
            "\[ImaginaryI]", " ", "C", " ", "R0", " ", "RA", " ", 
             "\[Omega]"}], "-", 
            RowBox[{
            "\[ImaginaryI]", " ", "C", " ", "R2", " ", "RA", " ", 
             "\[Omega]"}], "+", 
            RowBox[{"C", " ", "L", " ", "R0", " ", 
             SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "r"}], " ", "R2"}], "-", 
          RowBox[{"r", " ", "R3"}], "-", 
          RowBox[{"R2", " ", "R3"}], "-", 
          RowBox[{"r", " ", "RA"}], "-", 
          RowBox[{"R3", " ", "RA"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "L", " ", "R2", " ", "\[Omega]"}], 
          "-", 
          RowBox[{
          "\[ImaginaryI]", " ", "C", " ", "r", " ", "R0", " ", "R2", " ", 
           "\[Omega]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "L", " ", "R3", " ", "\[Omega]"}], 
          "-", 
          RowBox[{
          "\[ImaginaryI]", " ", "C", " ", "r", " ", "R0", " ", "R3", " ", 
           "\[Omega]"}], "-", 
          RowBox[{
          "\[ImaginaryI]", " ", "C", " ", "r", " ", "R2", " ", "R3", " ", 
           "\[Omega]"}], "-", 
          RowBox[{
          "\[ImaginaryI]", " ", "C", " ", "R0", " ", "R2", " ", "R3", " ", 
           "\[Omega]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "L", " ", "RA", " ", "\[Omega]"}], 
          "-", 
          RowBox[{
          "\[ImaginaryI]", " ", "C", " ", "r", " ", "R0", " ", "RA", " ", 
           "\[Omega]"}], "-", 
          RowBox[{
          "\[ImaginaryI]", " ", "C", " ", "r", " ", "R2", " ", "RA", " ", 
           "\[Omega]"}], "-", 
          RowBox[{
          "\[ImaginaryI]", " ", "C", " ", "R0", " ", "R3", " ", "RA", " ", 
           "\[Omega]"}], "-", 
          RowBox[{
          "\[ImaginaryI]", " ", "C", " ", "R2", " ", "R3", " ", "RA", " ", 
           "\[Omega]"}], "+", 
          RowBox[{"C", " ", "L", " ", "R0", " ", "R2", " ", 
           SuperscriptBox["\[Omega]", "2"]}], "+", 
          RowBox[{"C", " ", "L", " ", "R0", " ", "R3", " ", 
           SuperscriptBox["\[Omega]", "2"]}], "+", 
          RowBox[{"C", " ", "L", " ", "R2", " ", "R3", " ", 
           SuperscriptBox["\[Omega]", "2"]}], "+", 
          RowBox[{"C", " ", "L", " ", "R0", " ", "RA", " ", 
           SuperscriptBox["\[Omega]", "2"]}], "+", 
          RowBox[{"C", " ", "L", " ", "R2", " ", "RA", " ", 
           SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], ")"}]}]}], ",", 
    RowBox[{"\[CapitalIota]3", "=", 
     RowBox[{"-", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"U", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "r"}], "-", "R2", "-", "RA", "-", 
            RowBox[{"\[ImaginaryI]", " ", "L", " ", "\[Omega]"}], "-", 
            RowBox[{
            "\[ImaginaryI]", " ", "C", " ", "r", " ", "R0", " ", "\[Omega]"}],
             "-", 
            RowBox[{
            "\[ImaginaryI]", " ", "C", " ", "R0", " ", "R2", " ", 
             "\[Omega]"}], "-", 
            RowBox[{
            "\[ImaginaryI]", " ", "C", " ", "r", " ", "R3", " ", "\[Omega]"}],
             "-", 
            RowBox[{
            "\[ImaginaryI]", " ", "C", " ", "R2", " ", "R3", " ", 
             "\[Omega]"}], "-", 
            RowBox[{
            "\[ImaginaryI]", " ", "C", " ", "r", " ", "RA", " ", "\[Omega]"}],
             "-", 
            RowBox[{
            "\[ImaginaryI]", " ", "C", " ", "R0", " ", "RA", " ", 
             "\[Omega]"}], "-", 
            RowBox[{
            "\[ImaginaryI]", " ", "C", " ", "R2", " ", "RA", " ", 
             "\[Omega]"}], "-", 
            RowBox[{
            "\[ImaginaryI]", " ", "C", " ", "R3", " ", "RA", " ", 
             "\[Omega]"}], "+", 
            RowBox[{"C", " ", "L", " ", "R0", " ", 
             SuperscriptBox["\[Omega]", "2"]}], "+", 
            RowBox[{"C", " ", "L", " ", "R3", " ", 
             SuperscriptBox["\[Omega]", "2"]}], "+", 
            RowBox[{"C", " ", "L", " ", "RA", " ", 
             SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "r"}], " ", "R2"}], "-", 
          RowBox[{"r", " ", "R3"}], "-", 
          RowBox[{"R2", " ", "R3"}], "-", 
          RowBox[{"r", " ", "RA"}], "-", 
          RowBox[{"R3", " ", "RA"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "L", " ", "R2", " ", "\[Omega]"}], 
          "-", 
          RowBox[{
          "\[ImaginaryI]", " ", "C", " ", "r", " ", "R0", " ", "R2", " ", 
           "\[Omega]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "L", " ", "R3", " ", "\[Omega]"}], 
          "-", 
          RowBox[{
          "\[ImaginaryI]", " ", "C", " ", "r", " ", "R0", " ", "R3", " ", 
           "\[Omega]"}], "-", 
          RowBox[{
          "\[ImaginaryI]", " ", "C", " ", "r", " ", "R2", " ", "R3", " ", 
           "\[Omega]"}], "-", 
          RowBox[{
          "\[ImaginaryI]", " ", "C", " ", "R0", " ", "R2", " ", "R3", " ", 
           "\[Omega]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "L", " ", "RA", " ", "\[Omega]"}], 
          "-", 
          RowBox[{
          "\[ImaginaryI]", " ", "C", " ", "r", " ", "R0", " ", "RA", " ", 
           "\[Omega]"}], "-", 
          RowBox[{
          "\[ImaginaryI]", " ", "C", " ", "r", " ", "R2", " ", "RA", " ", 
           "\[Omega]"}], "-", 
          RowBox[{
          "\[ImaginaryI]", " ", "C", " ", "R0", " ", "R3", " ", "RA", " ", 
           "\[Omega]"}], "-", 
          RowBox[{
          "\[ImaginaryI]", " ", "C", " ", "R2", " ", "R3", " ", "RA", " ", 
           "\[Omega]"}], "+", 
          RowBox[{"C", " ", "L", " ", "R0", " ", "R2", " ", 
           SuperscriptBox["\[Omega]", "2"]}], "+", 
          RowBox[{"C", " ", "L", " ", "R0", " ", "R3", " ", 
           SuperscriptBox["\[Omega]", "2"]}], "+", 
          RowBox[{"C", " ", "L", " ", "R2", " ", "R3", " ", 
           SuperscriptBox["\[Omega]", "2"]}], "+", 
          RowBox[{"C", " ", "L", " ", "R0", " ", "RA", " ", 
           SuperscriptBox["\[Omega]", "2"]}], "+", 
          RowBox[{"C", " ", "L", " ", "R2", " ", "RA", " ", 
           SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], ")"}]}]}]}], "}"}], 
  "}"}]], "Input",
 CellChangeTimes->{{3.7823641914357233`*^9, 3.782364200248418*^9}},
 CellLabel->
  "In[575]:=",ExpressionUUID->"9a48a22c-d168-441b-9a90-2d2941a5ea80"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.782364216096019*^9, 
  3.7823642161349487`*^9}},ExpressionUUID->"f6645a5c-33e7-4e44-8a55-\
0153e7c05d22"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7823642082052336`*^9, 
  3.7823642082422132`*^9}},ExpressionUUID->"b1dee312-039d-47fe-ad58-\
b63e2004560e"],

Cell[CellGroupData[{

Cell[BoxData["I1"], "Input",
 CellChangeTimes->{{3.782363585379531*^9, 3.7823635890021267`*^9}, 
   3.782363667423278*^9},
 CellLabel->
  "In[576]:=",ExpressionUUID->"cefa0e40-7103-4b1a-bf88-380bfba7d260"],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"100", " ", "U", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "100"}], " ", 
         RowBox[{"(", 
          RowBox[{"100", "+", "R0", "+", "RA", "-", 
           FractionBox[
            RowBox[{"0.`", "\[VeryThinSpace]", "+", 
             RowBox[{"1.`*^7", " ", "\[ImaginaryI]"}]}], "\[Omega]"]}], 
          ")"}]}], "+", 
        RowBox[{"RA", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "R0"}], "+", 
           FractionBox[
            RowBox[{"0.`", "\[VeryThinSpace]", "+", 
             RowBox[{"1.`*^7", " ", "\[ImaginaryI]"}]}], "\[Omega]"]}], 
          ")"}]}]}], ")"}]}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"100", " ", 
          RowBox[{"(", 
           RowBox[{"100", "+", "R0", "+", "RA", "-", 
            FractionBox[
             RowBox[{"0.`", "\[VeryThinSpace]", "+", 
              RowBox[{"1.`*^7", " ", "\[ImaginaryI]"}]}], "\[Omega]"]}], 
           ")"}]}], "-", 
         RowBox[{"RA", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "R0"}], "+", 
            FractionBox[
             RowBox[{"0.`", "\[VeryThinSpace]", "+", 
              RowBox[{"1.`*^7", " ", "\[ImaginaryI]"}]}], "\[Omega]"]}], 
           ")"}]}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"10000", "-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"100", "+", "R0", "-", 
            FractionBox[
             RowBox[{"0.`", "\[VeryThinSpace]", "+", 
              RowBox[{"1.`*^7", " ", "\[ImaginaryI]"}]}], "\[Omega]"]}], 
           ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"100", "+", "r", "+", "RA", "+", 
            FractionBox[
             RowBox[{"11", " ", "\[ImaginaryI]", " ", "\[Omega]"}], "100"]}], 
           ")"}]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"RA", " ", 
          RowBox[{"(", 
           RowBox[{"100", "+", "R0", "-", 
            FractionBox[
             RowBox[{"0.`", "\[VeryThinSpace]", "+", 
              RowBox[{"1.`*^7", " ", "\[ImaginaryI]"}]}], "\[Omega]"]}], 
           ")"}]}], "-", 
         RowBox[{"100", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "R0"}], "+", 
            FractionBox[
             RowBox[{"0.`", "\[VeryThinSpace]", "+", 
              RowBox[{"1.`*^7", " ", "\[ImaginaryI]"}]}], "\[Omega]"]}], 
           ")"}]}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"100", " ", "RA"}], "-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "R0"}], "+", 
            FractionBox[
             RowBox[{"0.`", "\[VeryThinSpace]", "+", 
              RowBox[{"1.`*^7", " ", "\[ImaginaryI]"}]}], "\[Omega]"]}], 
           ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"100", "+", "r", "+", "RA", "+", 
            FractionBox[
             RowBox[{"11", " ", "\[ImaginaryI]", " ", "\[Omega]"}], "100"]}], 
           ")"}]}]}], ")"}]}]}], ")"}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.7823635898545475`*^9, 3.7823636341950293`*^9, 
  3.7823636686019344`*^9, 3.782363704078447*^9, 3.782364218698809*^9},
 CellLabel->
  "Out[576]=",ExpressionUUID->"3c85c2b3-c6a0-4c18-8f2a-387dab5ecebe"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"I1", "=", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{"R2", " ", "U", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "R2"}], " ", 
          RowBox[{"(", 
           RowBox[{"R0", "+", "R3", "+", "RA", "-", 
            FractionBox["\[ImaginaryI]", 
             RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}], "+", 
         RowBox[{"RA", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "R0"}], "+", 
            FractionBox["\[ImaginaryI]", 
             RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}]}], ")"}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "R2"}], " ", 
            RowBox[{"(", 
             RowBox[{"R0", "+", "R3", "+", "RA", "-", 
              FractionBox["\[ImaginaryI]", 
               RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}], "+", 
           RowBox[{"RA", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "R0"}], "+", 
              FractionBox["\[ImaginaryI]", 
               RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}]}], ")"}]}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["R2", "2"], "-", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"R0", "+", "R2", "-", 
             FractionBox["\[ImaginaryI]", 
              RowBox[{"C", " ", "\[Omega]"}]]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"r", "+", "R2", "+", "RA", "+", 
             RowBox[{"\[ImaginaryI]", " ", "L", " ", "\[Omega]"}]}], 
            ")"}]}]}], ")"}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"RA", " ", 
           RowBox[{"(", 
            RowBox[{"R0", "+", "R2", "-", 
             FractionBox["\[ImaginaryI]", 
              RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}], "-", 
          RowBox[{"R2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "R0"}], "+", 
             FractionBox["\[ImaginaryI]", 
              RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"R2", " ", "RA"}], "-", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "R0"}], "+", 
             FractionBox["\[ImaginaryI]", 
              RowBox[{"C", " ", "\[Omega]"}]]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"r", "+", "R2", "+", "RA", "+", 
             RowBox[{"\[ImaginaryI]", " ", "L", " ", "\[Omega]"}]}], 
            ")"}]}]}], ")"}]}]}]]}]}], ",", 
   RowBox[{"I2", "=", 
    RowBox[{"-", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"U", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "r"}], "-", "R2", "-", "RA", "-", 
           RowBox[{"\[ImaginaryI]", " ", "L", " ", "\[Omega]"}], "-", 
           RowBox[{
           "\[ImaginaryI]", " ", "C", " ", "r", " ", "R0", " ", "\[Omega]"}], 
           "-", 
           RowBox[{
           "\[ImaginaryI]", " ", "C", " ", "R0", " ", "R2", " ", "\[Omega]"}],
            "-", 
           RowBox[{
           "\[ImaginaryI]", " ", "C", " ", "R0", " ", "RA", " ", "\[Omega]"}],
            "-", 
           RowBox[{
           "\[ImaginaryI]", " ", "C", " ", "R2", " ", "RA", " ", "\[Omega]"}],
            "+", 
           RowBox[{"C", " ", "L", " ", "R0", " ", 
            SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "r"}], " ", "R2"}], "-", 
         RowBox[{"r", " ", "R3"}], "-", 
         RowBox[{"R2", " ", "R3"}], "-", 
         RowBox[{"r", " ", "RA"}], "-", 
         RowBox[{"R3", " ", "RA"}], "-", 
         RowBox[{"\[ImaginaryI]", " ", "L", " ", "R2", " ", "\[Omega]"}], "-", 
         RowBox[{
         "\[ImaginaryI]", " ", "C", " ", "r", " ", "R0", " ", "R2", " ", 
          "\[Omega]"}], "-", 
         RowBox[{"\[ImaginaryI]", " ", "L", " ", "R3", " ", "\[Omega]"}], "-", 
         RowBox[{
         "\[ImaginaryI]", " ", "C", " ", "r", " ", "R0", " ", "R3", " ", 
          "\[Omega]"}], "-", 
         RowBox[{
         "\[ImaginaryI]", " ", "C", " ", "r", " ", "R2", " ", "R3", " ", 
          "\[Omega]"}], "-", 
         RowBox[{
         "\[ImaginaryI]", " ", "C", " ", "R0", " ", "R2", " ", "R3", " ", 
          "\[Omega]"}], "-", 
         RowBox[{"\[ImaginaryI]", " ", "L", " ", "RA", " ", "\[Omega]"}], "-", 
         RowBox[{
         "\[ImaginaryI]", " ", "C", " ", "r", " ", "R0", " ", "RA", " ", 
          "\[Omega]"}], "-", 
         RowBox[{
         "\[ImaginaryI]", " ", "C", " ", "r", " ", "R2", " ", "RA", " ", 
          "\[Omega]"}], "-", 
         RowBox[{
         "\[ImaginaryI]", " ", "C", " ", "R0", " ", "R3", " ", "RA", " ", 
          "\[Omega]"}], "-", 
         RowBox[{
         "\[ImaginaryI]", " ", "C", " ", "R2", " ", "R3", " ", "RA", " ", 
          "\[Omega]"}], "+", 
         RowBox[{"C", " ", "L", " ", "R0", " ", "R2", " ", 
          SuperscriptBox["\[Omega]", "2"]}], "+", 
         RowBox[{"C", " ", "L", " ", "R0", " ", "R3", " ", 
          SuperscriptBox["\[Omega]", "2"]}], "+", 
         RowBox[{"C", " ", "L", " ", "R2", " ", "R3", " ", 
          SuperscriptBox["\[Omega]", "2"]}], "+", 
         RowBox[{"C", " ", "L", " ", "R0", " ", "RA", " ", 
          SuperscriptBox["\[Omega]", "2"]}], "+", 
         RowBox[{"C", " ", "L", " ", "R2", " ", "RA", " ", 
          SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], ")"}]}]}], ",", 
   RowBox[{"I3", "=", 
    RowBox[{"-", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"U", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "r"}], "-", "R2", "-", "RA", "-", 
           RowBox[{"\[ImaginaryI]", " ", "L", " ", "\[Omega]"}], "-", 
           RowBox[{
           "\[ImaginaryI]", " ", "C", " ", "r", " ", "R0", " ", "\[Omega]"}], 
           "-", 
           RowBox[{
           "\[ImaginaryI]", " ", "C", " ", "R0", " ", "R2", " ", "\[Omega]"}],
            "-", 
           RowBox[{
           "\[ImaginaryI]", " ", "C", " ", "r", " ", "R3", " ", "\[Omega]"}], 
           "-", 
           RowBox[{
           "\[ImaginaryI]", " ", "C", " ", "R2", " ", "R3", " ", "\[Omega]"}],
            "-", 
           RowBox[{
           "\[ImaginaryI]", " ", "C", " ", "r", " ", "RA", " ", "\[Omega]"}], 
           "-", 
           RowBox[{
           "\[ImaginaryI]", " ", "C", " ", "R0", " ", "RA", " ", "\[Omega]"}],
            "-", 
           RowBox[{
           "\[ImaginaryI]", " ", "C", " ", "R2", " ", "RA", " ", "\[Omega]"}],
            "-", 
           RowBox[{
           "\[ImaginaryI]", " ", "C", " ", "R3", " ", "RA", " ", "\[Omega]"}],
            "+", 
           RowBox[{"C", " ", "L", " ", "R0", " ", 
            SuperscriptBox["\[Omega]", "2"]}], "+", 
           RowBox[{"C", " ", "L", " ", "R3", " ", 
            SuperscriptBox["\[Omega]", "2"]}], "+", 
           RowBox[{"C", " ", "L", " ", "RA", " ", 
            SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "r"}], " ", "R2"}], "-", 
         RowBox[{"r", " ", "R3"}], "-", 
         RowBox[{"R2", " ", "R3"}], "-", 
         RowBox[{"r", " ", "RA"}], "-", 
         RowBox[{"R3", " ", "RA"}], "-", 
         RowBox[{"\[ImaginaryI]", " ", "L", " ", "R2", " ", "\[Omega]"}], "-", 
         RowBox[{
         "\[ImaginaryI]", " ", "C", " ", "r", " ", "R0", " ", "R2", " ", 
          "\[Omega]"}], "-", 
         RowBox[{"\[ImaginaryI]", " ", "L", " ", "R3", " ", "\[Omega]"}], "-", 
         RowBox[{
         "\[ImaginaryI]", " ", "C", " ", "r", " ", "R0", " ", "R3", " ", 
          "\[Omega]"}], "-", 
         RowBox[{
         "\[ImaginaryI]", " ", "C", " ", "r", " ", "R2", " ", "R3", " ", 
          "\[Omega]"}], "-", 
         RowBox[{
         "\[ImaginaryI]", " ", "C", " ", "R0", " ", "R2", " ", "R3", " ", 
          "\[Omega]"}], "-", 
         RowBox[{"\[ImaginaryI]", " ", "L", " ", "RA", " ", "\[Omega]"}], "-", 
         RowBox[{
         "\[ImaginaryI]", " ", "C", " ", "r", " ", "R0", " ", "RA", " ", 
          "\[Omega]"}], "-", 
         RowBox[{
         "\[ImaginaryI]", " ", "C", " ", "r", " ", "R2", " ", "RA", " ", 
          "\[Omega]"}], "-", 
         RowBox[{
         "\[ImaginaryI]", " ", "C", " ", "R0", " ", "R3", " ", "RA", " ", 
          "\[Omega]"}], "-", 
         RowBox[{
         "\[ImaginaryI]", " ", "C", " ", "R2", " ", "R3", " ", "RA", " ", 
          "\[Omega]"}], "+", 
         RowBox[{"C", " ", "L", " ", "R0", " ", "R2", " ", 
          SuperscriptBox["\[Omega]", "2"]}], "+", 
         RowBox[{"C", " ", "L", " ", "R0", " ", "R3", " ", 
          SuperscriptBox["\[Omega]", "2"]}], "+", 
         RowBox[{"C", " ", "L", " ", "R2", " ", "R3", " ", 
          SuperscriptBox["\[Omega]", "2"]}], "+", 
         RowBox[{"C", " ", "L", " ", "R0", " ", "RA", " ", 
          SuperscriptBox["\[Omega]", "2"]}], "+", 
         RowBox[{"C", " ", "L", " ", "R2", " ", "RA", " ", 
          SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], ")"}]}]}]}], "}"}]], \
"Input",
 CellChangeTimes->{{3.7823628620008802`*^9, 3.782362867097563*^9}, {
  3.7823636809819984`*^9, 3.782363722515585*^9}, {3.7823644275348425`*^9, 
  3.782364442176552*^9}},
 CellLabel->
  "In[584]:=",ExpressionUUID->"afa239ee-4574-4e5d-828a-d1fc7144da26"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{"R2", " ", "U", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "R2"}], " ", 
         RowBox[{"(", 
          RowBox[{"R0", "+", "R3", "+", "RA", "-", 
           FractionBox["\[ImaginaryI]", 
            RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}], "+", 
        RowBox[{"RA", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "R0"}], "+", 
           FractionBox["\[ImaginaryI]", 
            RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}]}], ")"}]}], 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"R2", " ", 
          RowBox[{"(", 
           RowBox[{"R0", "+", "R3", "+", "RA", "-", 
            FractionBox["\[ImaginaryI]", 
             RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}], "-", 
         RowBox[{"RA", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "R0"}], "+", 
            FractionBox["\[ImaginaryI]", 
             RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["R2", "2"], "-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"R0", "+", "R2", "-", 
            FractionBox["\[ImaginaryI]", 
             RowBox[{"C", " ", "\[Omega]"}]]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"r", "+", "R2", "+", "RA", "+", 
            RowBox[{"\[ImaginaryI]", " ", "L", " ", "\[Omega]"}]}], ")"}]}]}],
         ")"}]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"RA", " ", 
          RowBox[{"(", 
           RowBox[{"R0", "+", "R2", "-", 
            FractionBox["\[ImaginaryI]", 
             RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}], "-", 
         RowBox[{"R2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "R0"}], "+", 
            FractionBox["\[ImaginaryI]", 
             RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"R2", " ", "RA"}], "-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "R0"}], "+", 
            FractionBox["\[ImaginaryI]", 
             RowBox[{"C", " ", "\[Omega]"}]]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"r", "+", "R2", "+", "RA", "+", 
            RowBox[{"\[ImaginaryI]", " ", "L", " ", "\[Omega]"}]}], ")"}]}]}],
         ")"}]}]}]]}], ",", 
   RowBox[{"-", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"U", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "r"}], "-", "R2", "-", "RA", "-", 
          RowBox[{"\[ImaginaryI]", " ", "L", " ", "\[Omega]"}], "-", 
          RowBox[{
          "\[ImaginaryI]", " ", "C", " ", "r", " ", "R0", " ", "\[Omega]"}], 
          "-", 
          RowBox[{
          "\[ImaginaryI]", " ", "C", " ", "R0", " ", "R2", " ", "\[Omega]"}], 
          "-", 
          RowBox[{
          "\[ImaginaryI]", " ", "C", " ", "R0", " ", "RA", " ", "\[Omega]"}], 
          "-", 
          RowBox[{
          "\[ImaginaryI]", " ", "C", " ", "R2", " ", "RA", " ", "\[Omega]"}], 
          "+", 
          RowBox[{"C", " ", "L", " ", "R0", " ", 
           SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "r"}], " ", "R2"}], "-", 
        RowBox[{"r", " ", "R3"}], "-", 
        RowBox[{"R2", " ", "R3"}], "-", 
        RowBox[{"r", " ", "RA"}], "-", 
        RowBox[{"R3", " ", "RA"}], "-", 
        RowBox[{"\[ImaginaryI]", " ", "L", " ", "R2", " ", "\[Omega]"}], "-", 
        RowBox[{
        "\[ImaginaryI]", " ", "C", " ", "r", " ", "R0", " ", "R2", " ", 
         "\[Omega]"}], "-", 
        RowBox[{"\[ImaginaryI]", " ", "L", " ", "R3", " ", "\[Omega]"}], "-", 
        RowBox[{
        "\[ImaginaryI]", " ", "C", " ", "r", " ", "R0", " ", "R3", " ", 
         "\[Omega]"}], "-", 
        RowBox[{
        "\[ImaginaryI]", " ", "C", " ", "r", " ", "R2", " ", "R3", " ", 
         "\[Omega]"}], "-", 
        RowBox[{
        "\[ImaginaryI]", " ", "C", " ", "R0", " ", "R2", " ", "R3", " ", 
         "\[Omega]"}], "-", 
        RowBox[{"\[ImaginaryI]", " ", "L", " ", "RA", " ", "\[Omega]"}], "-", 
        RowBox[{
        "\[ImaginaryI]", " ", "C", " ", "r", " ", "R0", " ", "RA", " ", 
         "\[Omega]"}], "-", 
        RowBox[{
        "\[ImaginaryI]", " ", "C", " ", "r", " ", "R2", " ", "RA", " ", 
         "\[Omega]"}], "-", 
        RowBox[{
        "\[ImaginaryI]", " ", "C", " ", "R0", " ", "R3", " ", "RA", " ", 
         "\[Omega]"}], "-", 
        RowBox[{
        "\[ImaginaryI]", " ", "C", " ", "R2", " ", "R3", " ", "RA", " ", 
         "\[Omega]"}], "+", 
        RowBox[{"C", " ", "L", " ", "R0", " ", "R2", " ", 
         SuperscriptBox["\[Omega]", "2"]}], "+", 
        RowBox[{"C", " ", "L", " ", "R0", " ", "R3", " ", 
         SuperscriptBox["\[Omega]", "2"]}], "+", 
        RowBox[{"C", " ", "L", " ", "R2", " ", "R3", " ", 
         SuperscriptBox["\[Omega]", "2"]}], "+", 
        RowBox[{"C", " ", "L", " ", "R0", " ", "RA", " ", 
         SuperscriptBox["\[Omega]", "2"]}], "+", 
        RowBox[{"C", " ", "L", " ", "R2", " ", "RA", " ", 
         SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], ")"}]}], ",", 
   RowBox[{"-", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"U", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "r"}], "-", "R2", "-", "RA", "-", 
          RowBox[{"\[ImaginaryI]", " ", "L", " ", "\[Omega]"}], "-", 
          RowBox[{
          "\[ImaginaryI]", " ", "C", " ", "r", " ", "R0", " ", "\[Omega]"}], 
          "-", 
          RowBox[{
          "\[ImaginaryI]", " ", "C", " ", "R0", " ", "R2", " ", "\[Omega]"}], 
          "-", 
          RowBox[{
          "\[ImaginaryI]", " ", "C", " ", "r", " ", "R3", " ", "\[Omega]"}], 
          "-", 
          RowBox[{
          "\[ImaginaryI]", " ", "C", " ", "R2", " ", "R3", " ", "\[Omega]"}], 
          "-", 
          RowBox[{
          "\[ImaginaryI]", " ", "C", " ", "r", " ", "RA", " ", "\[Omega]"}], 
          "-", 
          RowBox[{
          "\[ImaginaryI]", " ", "C", " ", "R0", " ", "RA", " ", "\[Omega]"}], 
          "-", 
          RowBox[{
          "\[ImaginaryI]", " ", "C", " ", "R2", " ", "RA", " ", "\[Omega]"}], 
          "-", 
          RowBox[{
          "\[ImaginaryI]", " ", "C", " ", "R3", " ", "RA", " ", "\[Omega]"}], 
          "+", 
          RowBox[{"C", " ", "L", " ", "R0", " ", 
           SuperscriptBox["\[Omega]", "2"]}], "+", 
          RowBox[{"C", " ", "L", " ", "R3", " ", 
           SuperscriptBox["\[Omega]", "2"]}], "+", 
          RowBox[{"C", " ", "L", " ", "RA", " ", 
           SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "r"}], " ", "R2"}], "-", 
        RowBox[{"r", " ", "R3"}], "-", 
        RowBox[{"R2", " ", "R3"}], "-", 
        RowBox[{"r", " ", "RA"}], "-", 
        RowBox[{"R3", " ", "RA"}], "-", 
        RowBox[{"\[ImaginaryI]", " ", "L", " ", "R2", " ", "\[Omega]"}], "-", 
        RowBox[{
        "\[ImaginaryI]", " ", "C", " ", "r", " ", "R0", " ", "R2", " ", 
         "\[Omega]"}], "-", 
        RowBox[{"\[ImaginaryI]", " ", "L", " ", "R3", " ", "\[Omega]"}], "-", 
        RowBox[{
        "\[ImaginaryI]", " ", "C", " ", "r", " ", "R0", " ", "R3", " ", 
         "\[Omega]"}], "-", 
        RowBox[{
        "\[ImaginaryI]", " ", "C", " ", "r", " ", "R2", " ", "R3", " ", 
         "\[Omega]"}], "-", 
        RowBox[{
        "\[ImaginaryI]", " ", "C", " ", "R0", " ", "R2", " ", "R3", " ", 
         "\[Omega]"}], "-", 
        RowBox[{"\[ImaginaryI]", " ", "L", " ", "RA", " ", "\[Omega]"}], "-", 
        RowBox[{
        "\[ImaginaryI]", " ", "C", " ", "r", " ", "R0", " ", "RA", " ", 
         "\[Omega]"}], "-", 
        RowBox[{
        "\[ImaginaryI]", " ", "C", " ", "r", " ", "R2", " ", "RA", " ", 
         "\[Omega]"}], "-", 
        RowBox[{
        "\[ImaginaryI]", " ", "C", " ", "R0", " ", "R3", " ", "RA", " ", 
         "\[Omega]"}], "-", 
        RowBox[{
        "\[ImaginaryI]", " ", "C", " ", "R2", " ", "R3", " ", "RA", " ", 
         "\[Omega]"}], "+", 
        RowBox[{"C", " ", "L", " ", "R0", " ", "R2", " ", 
         SuperscriptBox["\[Omega]", "2"]}], "+", 
        RowBox[{"C", " ", "L", " ", "R0", " ", "R3", " ", 
         SuperscriptBox["\[Omega]", "2"]}], "+", 
        RowBox[{"C", " ", "L", " ", "R2", " ", "R3", " ", 
         SuperscriptBox["\[Omega]", "2"]}], "+", 
        RowBox[{"C", " ", "L", " ", "R0", " ", "RA", " ", 
         SuperscriptBox["\[Omega]", "2"]}], "+", 
        RowBox[{"C", " ", "L", " ", "R2", " ", "RA", " ", 
         SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], ")"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.782364357408573*^9, {3.782364434226859*^9, 3.782364444855392*^9}},
 CellLabel->
  "Out[584]=",ExpressionUUID->"f921873f-0d3a-4333-be67-2c95b21c6538"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["I1"], "Input",
 CellChangeTimes->{{3.782364349392912*^9, 3.7823643512624674`*^9}},
 CellLabel->
  "In[585]:=",ExpressionUUID->"bbd05a0e-49c0-4803-a8fe-d370c1885f52"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"R2", " ", "U", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "R2"}], " ", 
       RowBox[{"(", 
        RowBox[{"R0", "+", "R3", "+", "RA", "-", 
         FractionBox["\[ImaginaryI]", 
          RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}], "+", 
      RowBox[{"RA", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "R0"}], "+", 
         FractionBox["\[ImaginaryI]", 
          RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}]}], ")"}]}], 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"R2", " ", 
        RowBox[{"(", 
         RowBox[{"R0", "+", "R3", "+", "RA", "-", 
          FractionBox["\[ImaginaryI]", 
           RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}], "-", 
       RowBox[{"RA", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "R0"}], "+", 
          FractionBox["\[ImaginaryI]", 
           RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["R2", "2"], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"R0", "+", "R2", "-", 
          FractionBox["\[ImaginaryI]", 
           RowBox[{"C", " ", "\[Omega]"}]]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"r", "+", "R2", "+", "RA", "+", 
          RowBox[{"\[ImaginaryI]", " ", "L", " ", "\[Omega]"}]}], ")"}]}]}], 
      ")"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"RA", " ", 
        RowBox[{"(", 
         RowBox[{"R0", "+", "R2", "-", 
          FractionBox["\[ImaginaryI]", 
           RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}], "-", 
       RowBox[{"R2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "R0"}], "+", 
          FractionBox["\[ImaginaryI]", 
           RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"R2", " ", "RA"}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "R0"}], "+", 
          FractionBox["\[ImaginaryI]", 
           RowBox[{"C", " ", "\[Omega]"}]]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"r", "+", "R2", "+", "RA", "+", 
          RowBox[{"\[ImaginaryI]", " ", "L", " ", "\[Omega]"}]}], ")"}]}]}], 
      ")"}]}]}]]}]], "Output",
 CellChangeTimes->{3.7823643522323446`*^9, 3.7823644536202993`*^9},
 CellLabel->
  "Out[585]=",ExpressionUUID->"1dbb385e-9f43-497a-8161-f17a06cb1197"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"I1", "-", "I2"}]], "Input",
 CellChangeTimes->{{3.7823644590768185`*^9, 3.782364461193222*^9}},
 CellLabel->
  "In[586]:=",ExpressionUUID->"3c212b4b-3463-4e89-a46d-48a3e0518343"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{"U", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "r"}], "-", "R2", "-", "RA", "-", 
       RowBox[{"\[ImaginaryI]", " ", "L", " ", "\[Omega]"}], "-", 
       RowBox[{
       "\[ImaginaryI]", " ", "C", " ", "r", " ", "R0", " ", "\[Omega]"}], "-", 
       RowBox[{
       "\[ImaginaryI]", " ", "C", " ", "R0", " ", "R2", " ", "\[Omega]"}], 
       "-", 
       RowBox[{
       "\[ImaginaryI]", " ", "C", " ", "R0", " ", "RA", " ", "\[Omega]"}], 
       "-", 
       RowBox[{
       "\[ImaginaryI]", " ", "C", " ", "R2", " ", "RA", " ", "\[Omega]"}], 
       "+", 
       RowBox[{"C", " ", "L", " ", "R0", " ", 
        SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], ")"}], "/", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "r"}], " ", "R2"}], "-", 
     RowBox[{"r", " ", "R3"}], "-", 
     RowBox[{"R2", " ", "R3"}], "-", 
     RowBox[{"r", " ", "RA"}], "-", 
     RowBox[{"R3", " ", "RA"}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "L", " ", "R2", " ", "\[Omega]"}], "-", 
     RowBox[{
     "\[ImaginaryI]", " ", "C", " ", "r", " ", "R0", " ", "R2", " ", 
      "\[Omega]"}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "L", " ", "R3", " ", "\[Omega]"}], "-", 
     RowBox[{
     "\[ImaginaryI]", " ", "C", " ", "r", " ", "R0", " ", "R3", " ", 
      "\[Omega]"}], "-", 
     RowBox[{
     "\[ImaginaryI]", " ", "C", " ", "r", " ", "R2", " ", "R3", " ", 
      "\[Omega]"}], "-", 
     RowBox[{
     "\[ImaginaryI]", " ", "C", " ", "R0", " ", "R2", " ", "R3", " ", 
      "\[Omega]"}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "L", " ", "RA", " ", "\[Omega]"}], "-", 
     RowBox[{
     "\[ImaginaryI]", " ", "C", " ", "r", " ", "R0", " ", "RA", " ", 
      "\[Omega]"}], "-", 
     RowBox[{
     "\[ImaginaryI]", " ", "C", " ", "r", " ", "R2", " ", "RA", " ", 
      "\[Omega]"}], "-", 
     RowBox[{
     "\[ImaginaryI]", " ", "C", " ", "R0", " ", "R3", " ", "RA", " ", 
      "\[Omega]"}], "-", 
     RowBox[{
     "\[ImaginaryI]", " ", "C", " ", "R2", " ", "R3", " ", "RA", " ", 
      "\[Omega]"}], "+", 
     RowBox[{"C", " ", "L", " ", "R0", " ", "R2", " ", 
      SuperscriptBox["\[Omega]", "2"]}], "+", 
     RowBox[{"C", " ", "L", " ", "R0", " ", "R3", " ", 
      SuperscriptBox["\[Omega]", "2"]}], "+", 
     RowBox[{"C", " ", "L", " ", "R2", " ", "R3", " ", 
      SuperscriptBox["\[Omega]", "2"]}], "+", 
     RowBox[{"C", " ", "L", " ", "R0", " ", "RA", " ", 
      SuperscriptBox["\[Omega]", "2"]}], "+", 
     RowBox[{"C", " ", "L", " ", "R2", " ", "RA", " ", 
      SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], "-", 
  FractionBox[
   RowBox[{"R2", " ", "U", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "R2"}], " ", 
       RowBox[{"(", 
        RowBox[{"R0", "+", "R3", "+", "RA", "-", 
         FractionBox["\[ImaginaryI]", 
          RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}], "+", 
      RowBox[{"RA", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "R0"}], "+", 
         FractionBox["\[ImaginaryI]", 
          RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}]}], ")"}]}], 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"R2", " ", 
        RowBox[{"(", 
         RowBox[{"R0", "+", "R3", "+", "RA", "-", 
          FractionBox["\[ImaginaryI]", 
           RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}], "-", 
       RowBox[{"RA", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "R0"}], "+", 
          FractionBox["\[ImaginaryI]", 
           RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["R2", "2"], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"R0", "+", "R2", "-", 
          FractionBox["\[ImaginaryI]", 
           RowBox[{"C", " ", "\[Omega]"}]]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"r", "+", "R2", "+", "RA", "+", 
          RowBox[{"\[ImaginaryI]", " ", "L", " ", "\[Omega]"}]}], ")"}]}]}], 
      ")"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"RA", " ", 
        RowBox[{"(", 
         RowBox[{"R0", "+", "R2", "-", 
          FractionBox["\[ImaginaryI]", 
           RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}], "-", 
       RowBox[{"R2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "R0"}], "+", 
          FractionBox["\[ImaginaryI]", 
           RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"R2", " ", "RA"}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "R0"}], "+", 
          FractionBox["\[ImaginaryI]", 
           RowBox[{"C", " ", "\[Omega]"}]]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"r", "+", "R2", "+", "RA", "+", 
          RowBox[{"\[ImaginaryI]", " ", "L", " ", "\[Omega]"}]}], ")"}]}]}], 
      ")"}]}]}]]}]], "Output",
 CellChangeTimes->{3.7823644623183794`*^9},
 CellLabel->
  "Out[586]=",ExpressionUUID->"1a4564a4-5d22-4e13-ae54-da6a6fbbd4c8"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7823636591701736`*^9, 
  3.7823636592280564`*^9}},ExpressionUUID->"e21eba98-9114-4e65-af54-\
817e18d479cf"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7823636093880234`*^9, 
  3.7823636094568725`*^9}},ExpressionUUID->"a12df8a4-560e-4e96-a1c0-\
8d894d4af311"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7823625695435715`*^9, 
  3.782362569830803*^9}},ExpressionUUID->"7835c398-7eee-4de5-9041-\
3e46a3d868a9"],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"L", ",", "R0", ",", "R2", ",", "R3", ",", "C", ",", "U"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7823471839255743`*^9, 3.7823472603589554`*^9}, {
  3.7823624508120556`*^9, 3.7823624564064054`*^9}},
 CellLabel->
  "In[509]:=",ExpressionUUID->"39594e55-4dbc-4e77-a3c9-74ea15d5bfdf"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"I1", "-", "I2"}], "\[Equal]", "0"}], ",", 
   RowBox[{"{", 
    RowBox[{"L", ",", "r"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7823464284704533`*^9, 3.7823464723370457`*^9}, 
   3.78234650978167*^9, {3.782346585449356*^9, 3.7823465900330615`*^9}, {
   3.7823471682045164`*^9, 3.7823471760556192`*^9}, {3.782347271866183*^9, 
   3.782347285248397*^9}, {3.7823626737861433`*^9, 3.7823626769058504`*^9}, {
   3.782363041437667*^9, 3.7823630445305853`*^9}, {3.7823637582671824`*^9, 
   3.7823637622326956`*^9}},
 CellLabel->
  "In[587]:=",ExpressionUUID->"3e4c8520-b947-4768-ba5d-464a259ef73f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"U", "\[Equal]", "0"}], "&&", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "r"}], " ", "R2"}], "-", 
      RowBox[{"r", " ", "R3"}], "-", 
      RowBox[{"R2", " ", "R3"}], "-", 
      RowBox[{"r", " ", "RA"}], "-", 
      RowBox[{"R3", " ", "RA"}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "L", " ", "R2", " ", "\[Omega]"}], "-", 
      RowBox[{
      "\[ImaginaryI]", " ", "C", " ", "r", " ", "R0", " ", "R2", " ", 
       "\[Omega]"}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "L", " ", "R3", " ", "\[Omega]"}], "-", 
      RowBox[{
      "\[ImaginaryI]", " ", "C", " ", "r", " ", "R0", " ", "R3", " ", 
       "\[Omega]"}], "-", 
      RowBox[{
      "\[ImaginaryI]", " ", "C", " ", "r", " ", "R2", " ", "R3", " ", 
       "\[Omega]"}], "-", 
      RowBox[{
      "\[ImaginaryI]", " ", "C", " ", "R0", " ", "R2", " ", "R3", " ", 
       "\[Omega]"}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "L", " ", "RA", " ", "\[Omega]"}], "-", 
      RowBox[{
      "\[ImaginaryI]", " ", "C", " ", "r", " ", "R0", " ", "RA", " ", 
       "\[Omega]"}], "-", 
      RowBox[{
      "\[ImaginaryI]", " ", "C", " ", "r", " ", "R2", " ", "RA", " ", 
       "\[Omega]"}], "-", 
      RowBox[{
      "\[ImaginaryI]", " ", "C", " ", "R0", " ", "R3", " ", "RA", " ", 
       "\[Omega]"}], "-", 
      RowBox[{
      "\[ImaginaryI]", " ", "C", " ", "R2", " ", "R3", " ", "RA", " ", 
       "\[Omega]"}], "+", 
      RowBox[{"C", " ", "L", " ", "R0", " ", "R2", " ", 
       SuperscriptBox["\[Omega]", "2"]}], "+", 
      RowBox[{"C", " ", "L", " ", "R0", " ", "R3", " ", 
       SuperscriptBox["\[Omega]", "2"]}], "+", 
      RowBox[{"C", " ", "L", " ", "R2", " ", "R3", " ", 
       SuperscriptBox["\[Omega]", "2"]}], "+", 
      RowBox[{"C", " ", "L", " ", "R0", " ", "RA", " ", 
       SuperscriptBox["\[Omega]", "2"]}], "+", 
      RowBox[{"C", " ", "L", " ", "R2", " ", "RA", " ", 
       SuperscriptBox["\[Omega]", "2"]}]}], "\[NotEqual]", "0"}]}], ")"}], "||", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], "+", 
      RowBox[{"C", " ", "R0", " ", "\[Omega]"}]}], "\[NotEqual]", "0"}], "&&", 
    RowBox[{"r", "\[Equal]", 
     FractionBox[
      RowBox[{"\[Omega]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "L"}], "+", 
         RowBox[{"C", " ", "R2", " ", "R3"}], "-", 
         RowBox[{
         "\[ImaginaryI]", " ", "C", " ", "L", " ", "R0", " ", "\[Omega]"}]}], 
        ")"}]}], 
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], "+", 
       RowBox[{"C", " ", "R0", " ", "\[Omega]"}]}]]}], "&&", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "R2"}], " ", "R3"}], "-", 
      RowBox[{"R3", " ", "RA"}], "-", 
      RowBox[{
      "2", " ", "\[ImaginaryI]", " ", "C", " ", "R0", " ", "R2", " ", "R3", 
       " ", "\[Omega]"}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "C", " ", 
       SuperscriptBox["R2", "2"], " ", "R3", " ", "\[Omega]"}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "C", " ", "R2", " ", 
       SuperscriptBox["R3", "2"], " ", "\[Omega]"}], "-", 
      RowBox[{
      "2", " ", "\[ImaginaryI]", " ", "C", " ", "R0", " ", "R3", " ", "RA", 
       " ", "\[Omega]"}], "-", 
      RowBox[{
      "2", " ", "\[ImaginaryI]", " ", "C", " ", "R2", " ", "R3", " ", "RA", 
       " ", "\[Omega]"}], "+", 
      RowBox[{
       SuperscriptBox["C", "2"], " ", 
       SuperscriptBox["R0", "2"], " ", "R2", " ", "R3", " ", 
       SuperscriptBox["\[Omega]", "2"]}], "+", 
      RowBox[{
       SuperscriptBox["C", "2"], " ", "R0", " ", 
       SuperscriptBox["R2", "2"], " ", "R3", " ", 
       SuperscriptBox["\[Omega]", "2"]}], "+", 
      RowBox[{
       SuperscriptBox["C", "2"], " ", "R0", " ", "R2", " ", 
       SuperscriptBox["R3", "2"], " ", 
       SuperscriptBox["\[Omega]", "2"]}], "+", 
      RowBox[{
       SuperscriptBox["C", "2"], " ", 
       SuperscriptBox["R2", "2"], " ", 
       SuperscriptBox["R3", "2"], " ", 
       SuperscriptBox["\[Omega]", "2"]}], "+", 
      RowBox[{
       SuperscriptBox["C", "2"], " ", 
       SuperscriptBox["R0", "2"], " ", "R3", " ", "RA", " ", 
       SuperscriptBox["\[Omega]", "2"]}], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["C", "2"], " ", "R0", " ", "R2", " ", "R3", " ", "RA", 
       " ", 
       SuperscriptBox["\[Omega]", "2"]}], "+", 
      RowBox[{
       SuperscriptBox["C", "2"], " ", 
       SuperscriptBox["R2", "2"], " ", "R3", " ", "RA", " ", 
       SuperscriptBox["\[Omega]", "2"]}]}], "\[NotEqual]", "0"}]}], ")"}], "||", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"R3", "\[Equal]", "0"}], "&&", 
    RowBox[{
     RowBox[{"R0", " ", "\[Omega]"}], "\[NotEqual]", "0"}], "&&", 
    RowBox[{"C", "\[Equal]", 
     FractionBox["\[ImaginaryI]", 
      RowBox[{"R0", " ", "\[Omega]"}]]}], "&&", 
    RowBox[{
     RowBox[{
      RowBox[{"r", " ", "R2", " ", "RA"}], "+", 
      RowBox[{
      "\[ImaginaryI]", " ", "L", " ", "R2", " ", "RA", " ", "\[Omega]"}]}], 
     "\[NotEqual]", "0"}]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.7823624660646505`*^9, {3.7823626635524416`*^9, 3.78236267787312*^9}, 
   3.7823628850639973`*^9, 3.782363047784148*^9, 3.7823637635785236`*^9, 
   3.782364470815261*^9},
 CellLabel->
  "Out[587]=",ExpressionUUID->"37c08e8b-7379-4e6b-8e01-fba1a96998a1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ComplexExpand", "[", 
  FractionBox[
   RowBox[{"\[Omega]", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "L"}], "+", 
      RowBox[{"C", " ", "R2", " ", "R3"}], "-", 
      RowBox[{
      "\[ImaginaryI]", " ", "C", " ", "L", " ", "R0", " ", "\[Omega]"}]}], 
     ")"}]}], 
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], "+", 
    RowBox[{"C", " ", "R0", " ", "\[Omega]"}]}]], "]"}]], "Input",
 CellChangeTimes->{{3.7823627176880374`*^9, 3.782362725812828*^9}, 
   3.7823630627560205`*^9, 3.78236447974093*^9},
 CellLabel->
  "In[588]:=",ExpressionUUID->"1b028bda-1c42-49c3-b46b-5c8211e94eb9"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    SuperscriptBox["C", "2"], " ", "R0", " ", "R2", " ", "R3", " ", 
    SuperscriptBox["\[Omega]", "2"]}], 
   RowBox[{"1", "+", 
    RowBox[{
     SuperscriptBox["C", "2"], " ", 
     SuperscriptBox["R0", "2"], " ", 
     SuperscriptBox["\[Omega]", "2"]}]}]], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{"L", " ", "\[Omega]"}], 
       RowBox[{"1", "+", 
        RowBox[{
         SuperscriptBox["C", "2"], " ", 
         SuperscriptBox["R0", "2"], " ", 
         SuperscriptBox["\[Omega]", "2"]}]}]]}], "+", 
     FractionBox[
      RowBox[{"C", " ", "R2", " ", "R3", " ", "\[Omega]"}], 
      RowBox[{"1", "+", 
       RowBox[{
        SuperscriptBox["C", "2"], " ", 
        SuperscriptBox["R0", "2"], " ", 
        SuperscriptBox["\[Omega]", "2"]}]}]], "-", 
     FractionBox[
      RowBox[{
       SuperscriptBox["C", "2"], " ", "L", " ", 
       SuperscriptBox["R0", "2"], " ", 
       SuperscriptBox["\[Omega]", "3"]}], 
      RowBox[{"1", "+", 
       RowBox[{
        SuperscriptBox["C", "2"], " ", 
        SuperscriptBox["R0", "2"], " ", 
        SuperscriptBox["\[Omega]", "2"]}]}]]}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.7823627268196564`*^9, 3.782363064022811*^9, 
  3.7823644815194883`*^9},
 CellLabel->
  "Out[588]=",ExpressionUUID->"fce45a5e-fa98-4dd6-aa06-fbed58a01a8f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"U0", "=", "1.780"}]], "Input",
 CellChangeTimes->{{3.7823011640980797`*^9, 3.7823011669155455`*^9}, {
  3.7823463551051354`*^9, 3.7823463555968213`*^9}, {3.7823630949238014`*^9, 
  3.782363096521835*^9}},
 CellLabel->
  "In[523]:=",ExpressionUUID->"29534260-092a-4068-abb7-38cd3bd3645f"],

Cell[BoxData["1.78`"], "Output",
 CellChangeTimes->{
  3.782301167663545*^9, 3.78234635680459*^9, {3.7823630883110847`*^9, 
   3.7823630979066815`*^9}},
 CellLabel->
  "Out[523]=",ExpressionUUID->"b5285ce2-b91a-489d-b4e7-854de4613099"]
}, Open  ]],

Cell[BoxData["U"], "Input",
 CellChangeTimes->{
  3.7823634208326263`*^9},ExpressionUUID->"fc1ec842-24a4-4e90-9de6-\
5e7639d820be"],

Cell[BoxData["A"], "Input",
 CellChangeTimes->{3.7823635228275833`*^9},
 CellLabel->
  "In[535]:=",ExpressionUUID->"94d7ea98-9067-4fec-92ce-f9aa86eb16ae"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["\[CapitalIota]", "1"], "-", 
  SubscriptBox["\[CapitalIota]", "2"]}]], "Input",
 CellChangeTimes->{3.782364094815112*^9},
 CellLabel->
  "In[562]:=",ExpressionUUID->"0949f799-3726-4b93-a5dd-6dbe3d30ca53"],

Cell[BoxData[
 RowBox[{
  SubscriptBox["\[CapitalIota]", "1"], "-", 
  SubscriptBox["\[CapitalIota]", "2"]}]], "Output",
 CellChangeTimes->{3.7823640949148483`*^9},
 CellLabel->
  "Out[562]=",ExpressionUUID->"7bbc085f-6212-4a9c-9b56-712fd585ab33"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"I1", "-", "I2"}]], "Input",
 CellChangeTimes->{{3.782363787836383*^9, 3.782363791036937*^9}, {
  3.7823638331532717`*^9, 3.782363849522748*^9}, {3.782363896798068*^9, 
  3.782363899064596*^9}, {3.7823640640221024`*^9, 3.7823640653554153`*^9}},
 CellLabel->
  "In[589]:=",ExpressionUUID->"3ad82926-3536-4662-a2ba-59eac97da3c6"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{"U", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "r"}], "-", "R2", "-", "RA", "-", 
       RowBox[{"\[ImaginaryI]", " ", "L", " ", "\[Omega]"}], "-", 
       RowBox[{
       "\[ImaginaryI]", " ", "C", " ", "r", " ", "R0", " ", "\[Omega]"}], "-", 
       RowBox[{
       "\[ImaginaryI]", " ", "C", " ", "R0", " ", "R2", " ", "\[Omega]"}], 
       "-", 
       RowBox[{
       "\[ImaginaryI]", " ", "C", " ", "R0", " ", "RA", " ", "\[Omega]"}], 
       "-", 
       RowBox[{
       "\[ImaginaryI]", " ", "C", " ", "R2", " ", "RA", " ", "\[Omega]"}], 
       "+", 
       RowBox[{"C", " ", "L", " ", "R0", " ", 
        SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], ")"}], "/", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "r"}], " ", "R2"}], "-", 
     RowBox[{"r", " ", "R3"}], "-", 
     RowBox[{"R2", " ", "R3"}], "-", 
     RowBox[{"r", " ", "RA"}], "-", 
     RowBox[{"R3", " ", "RA"}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "L", " ", "R2", " ", "\[Omega]"}], "-", 
     RowBox[{
     "\[ImaginaryI]", " ", "C", " ", "r", " ", "R0", " ", "R2", " ", 
      "\[Omega]"}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "L", " ", "R3", " ", "\[Omega]"}], "-", 
     RowBox[{
     "\[ImaginaryI]", " ", "C", " ", "r", " ", "R0", " ", "R3", " ", 
      "\[Omega]"}], "-", 
     RowBox[{
     "\[ImaginaryI]", " ", "C", " ", "r", " ", "R2", " ", "R3", " ", 
      "\[Omega]"}], "-", 
     RowBox[{
     "\[ImaginaryI]", " ", "C", " ", "R0", " ", "R2", " ", "R3", " ", 
      "\[Omega]"}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "L", " ", "RA", " ", "\[Omega]"}], "-", 
     RowBox[{
     "\[ImaginaryI]", " ", "C", " ", "r", " ", "R0", " ", "RA", " ", 
      "\[Omega]"}], "-", 
     RowBox[{
     "\[ImaginaryI]", " ", "C", " ", "r", " ", "R2", " ", "RA", " ", 
      "\[Omega]"}], "-", 
     RowBox[{
     "\[ImaginaryI]", " ", "C", " ", "R0", " ", "R3", " ", "RA", " ", 
      "\[Omega]"}], "-", 
     RowBox[{
     "\[ImaginaryI]", " ", "C", " ", "R2", " ", "R3", " ", "RA", " ", 
      "\[Omega]"}], "+", 
     RowBox[{"C", " ", "L", " ", "R0", " ", "R2", " ", 
      SuperscriptBox["\[Omega]", "2"]}], "+", 
     RowBox[{"C", " ", "L", " ", "R0", " ", "R3", " ", 
      SuperscriptBox["\[Omega]", "2"]}], "+", 
     RowBox[{"C", " ", "L", " ", "R2", " ", "R3", " ", 
      SuperscriptBox["\[Omega]", "2"]}], "+", 
     RowBox[{"C", " ", "L", " ", "R0", " ", "RA", " ", 
      SuperscriptBox["\[Omega]", "2"]}], "+", 
     RowBox[{"C", " ", "L", " ", "R2", " ", "RA", " ", 
      SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], "-", 
  FractionBox[
   RowBox[{"R2", " ", "U", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "R2"}], " ", 
       RowBox[{"(", 
        RowBox[{"R0", "+", "R3", "+", "RA", "-", 
         FractionBox["\[ImaginaryI]", 
          RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}], "+", 
      RowBox[{"RA", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "R0"}], "+", 
         FractionBox["\[ImaginaryI]", 
          RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}]}], ")"}]}], 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"R2", " ", 
        RowBox[{"(", 
         RowBox[{"R0", "+", "R3", "+", "RA", "-", 
          FractionBox["\[ImaginaryI]", 
           RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}], "-", 
       RowBox[{"RA", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "R0"}], "+", 
          FractionBox["\[ImaginaryI]", 
           RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["R2", "2"], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"R0", "+", "R2", "-", 
          FractionBox["\[ImaginaryI]", 
           RowBox[{"C", " ", "\[Omega]"}]]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"r", "+", "R2", "+", "RA", "+", 
          RowBox[{"\[ImaginaryI]", " ", "L", " ", "\[Omega]"}]}], ")"}]}]}], 
      ")"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"RA", " ", 
        RowBox[{"(", 
         RowBox[{"R0", "+", "R2", "-", 
          FractionBox["\[ImaginaryI]", 
           RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}], "-", 
       RowBox[{"R2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "R0"}], "+", 
          FractionBox["\[ImaginaryI]", 
           RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"R2", " ", "RA"}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "R0"}], "+", 
          FractionBox["\[ImaginaryI]", 
           RowBox[{"C", " ", "\[Omega]"}]]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"r", "+", "R2", "+", "RA", "+", 
          RowBox[{"\[ImaginaryI]", " ", "L", " ", "\[Omega]"}]}], ")"}]}]}], 
      ")"}]}]}]]}]], "Output",
 CellChangeTimes->{
  3.7823635728541007`*^9, 3.7823637855851192`*^9, {3.7823638301279917`*^9, 
   3.7823638506058965`*^9}, 3.7823640661914062`*^9, {3.7823640989958973`*^9, 
   3.7823641022591257`*^9}, 3.782364300054737*^9, 3.7823645043174486`*^9},
 CellLabel->
  "Out[589]=",ExpressionUUID->"54d29f43-5448-4df6-9afb-7f38bfd2eede"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"1", "+", "1"}]], "Input",
 CellChangeTimes->{{3.7823635746284156`*^9, 3.78236357556188*^9}},
 CellLabel->
  "In[537]:=",ExpressionUUID->"e581e8ac-1912-4215-8f26-dbc9533a900d"],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{3.782363576203198*^9},
 CellLabel->
  "Out[537]=",ExpressionUUID->"1582c042-f31c-4ef8-9c6e-d66d200e16c5"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.782297323052644*^9, 3.7822973299880524`*^9}, 
   3.782297619051344*^9},ExpressionUUID->"f92dcb13-e07e-46e6-b4d1-\
79be039e8e24"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"A", "=", 
  RowBox[{"Assuming", "[", 
   RowBox[{
    RowBox[{"Element", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"t", ",", "\[Omega]", ",", "R", ",", "r"}], "}"}], ",", 
      "Reals"}], "]"}], ",", 
    RowBox[{"Simplify", "[", 
     RowBox[{"Re", "[", 
      RowBox[{"ComplexExpand", "[", 
       RowBox[{"I1", "-", "I2"}], "]"}], "]"}], "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.782348021621266*^9, 3.7823480261531467`*^9}, {
   3.7823481057052946`*^9, 3.7823481329411297`*^9}, {3.7823482361105776`*^9, 
   3.782348260902279*^9}, 3.7823486549369817`*^9, {3.7823487302402554`*^9, 
   3.782348732419429*^9}, {3.78234930598133*^9, 3.7823493089194727`*^9}, {
   3.782349440596513*^9, 3.7823494827732325`*^9}, {3.7823500933902717`*^9, 
   3.7823501701116867`*^9}, {3.7823502300446577`*^9, 3.782350233330927*^9}, {
   3.7823504896194696`*^9, 3.7823504918943586`*^9}, {3.782350620806596*^9, 
   3.7823506301595464`*^9}, {3.7823508646943617`*^9, 3.782350870819971*^9}, {
   3.7823530394234686`*^9, 3.782353043204357*^9}, 3.782359652717553*^9, {
   3.7823606965075674`*^9, 3.782360750072611*^9}, {3.7823631393213654`*^9, 
   3.7823631395227885`*^9}, {3.782363339081108*^9, 3.78236334212604*^9}, {
   3.7823633984839363`*^9, 3.782363401259269*^9}, {3.7823639886581182`*^9, 
   3.782363997256523*^9}, {3.782364541946481*^9, 3.782364547827285*^9}},
 CellLabel->
  "In[591]:=",ExpressionUUID->"ac38f196-a614-4376-8d9f-78476c512b7f"],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.782359655554167*^9, 3.7823607548787165`*^9, 
  3.782361987279144*^9, 3.782363299647498*^9, 3.782363395109622*^9, 
  3.7823634278389587`*^9, 3.782363880619033*^9, 3.782363911522519*^9, 
  3.7823640223490963`*^9, 3.7823645394408913`*^9},
 CellLabel->
  "Out[590]=",ExpressionUUID->"c93d579a-946a-46b6-aaf9-9b65ab5db9b6"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.782359146990845*^9, 
  3.7823591471354275`*^9}},ExpressionUUID->"f49ca1f5-57f1-41ae-89d7-\
acc30afd4fd4"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7823544928737073`*^9, 
  3.78235451670125*^9}},ExpressionUUID->"8439eb9e-0dae-43da-87a0-\
043dd3052179"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.782353194092121*^9, 
  3.78235319414102*^9}},ExpressionUUID->"158fcba4-aa62-41d8-967b-\
f22be05e1a12"],

Cell[CellGroupData[{

Cell[BoxData["0"], "Input",
 CellChangeTimes->{
  3.7823509141873927`*^9, {3.7823523374418397`*^9, 3.7823523433749733`*^9}, {
   3.7823524455023813`*^9, 3.7823524464428663`*^9}},
 CellLabel->
  "In[284]:=",ExpressionUUID->"5cd7c370-080b-4b27-9ae9-71ab801f5a1d"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.782350915128058*^9, {3.7823524385180593`*^9, 3.7823524469924355`*^9}},
 CellLabel->
  "Out[284]=",ExpressionUUID->"71c364e1-937f-43e6-b440-02526902bd78"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["\[Omega]"], "Input",
 CellChangeTimes->{{3.782350954889528*^9, 3.782350955452024*^9}},
 CellLabel->
  "In[276]:=",ExpressionUUID->"66ffe70a-a301-4649-b29e-684314fc02d9"],

Cell[BoxData["\[Omega]"], "Output",
 CellChangeTimes->{3.78235095643849*^9},
 CellLabel->
  "Out[276]=",ExpressionUUID->"7645afca-fe3a-41c8-b17a-7b60f5452e22"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["T"], "Input",
 CellChangeTimes->{3.782350962825306*^9},
 CellLabel->
  "In[277]:=",ExpressionUUID->"a5b8d13f-0909-416a-9e2d-a6c7a75d3070"],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", " ", "\[Pi]"}], "\[Omega]"]], "Output",
 CellChangeTimes->{3.7823509636860037`*^9},
 CellLabel->
  "Out[277]=",ExpressionUUID->"cd299d96-f9c2-46d5-b8fc-3ffe6144e2c4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 SubscriptBox["r", "x"]], "Input",
 CellChangeTimes->{{3.7823530149738503`*^9, 3.782353016768053*^9}},
 CellLabel->
  "In[450]:=",ExpressionUUID->"1975d157-36f0-4e2c-929e-4ed6235186cb"],

Cell[BoxData["0.2`"], "Output",
 CellChangeTimes->{
  3.7823530176347713`*^9, {3.782361920375532*^9, 3.782361926585436*^9}},
 CellLabel->
  "Out[450]=",ExpressionUUID->"f344ec26-b389-4452-8b18-2017f70a50c1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", "[", "]"}]], "Input",
 CellChangeTimes->{{3.782350938485924*^9, 3.782350939340603*^9}},
 CellLabel->
  "In[275]:=",ExpressionUUID->"9213dccd-7c80-443b-bdb4-be8eca1901f3"],

Cell[BoxData[
 RowBox[{"f", "[", "]"}]], "Output",
 CellChangeTimes->{3.7823509403350997`*^9},
 CellLabel->
  "Out[275]=",ExpressionUUID->"8b135bc2-6ae8-4427-839e-1ee8038976a1"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"\[Omega]_", ",", "R_"}], "]"}], ":=", " ", 
  RowBox[{"NIntegrate", "[", 
   RowBox[{
    RowBox[{"Simplify", "[", 
     RowBox[{"N", "[", 
      RowBox[{"A", "^", "2"}], "]"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", 
      RowBox[{"2", 
       RowBox[{"Pi", "/", "\[Omega]"}]}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7823506804316177`*^9, 3.7823506933009205`*^9}, {
   3.782350728649391*^9, 3.78235079286736*^9}, {3.782350890023593*^9, 
   3.7823508948277464`*^9}, 3.782350997558423*^9, {3.782352427115552*^9, 
   3.7823524274935784`*^9}, 3.782352488547765*^9, {3.7823529247987747`*^9, 
   3.7823529314090967`*^9}, 3.782352992749091*^9, {3.782353199849724*^9, 
   3.782353202734011*^9}, {3.7823533195481205`*^9, 3.7823533262062836`*^9}, {
   3.7823591820873904`*^9, 3.782359184718356*^9}, {3.7823596879164643`*^9, 
   3.7823596888210497`*^9}, {3.782359722627398*^9, 3.782359724981152*^9}, 
   3.7823597656786175`*^9, {3.78236077852245*^9, 3.78236077982526*^9}, 
   3.782360813333439*^9},
 CellLabel->
  "In[528]:=",ExpressionUUID->"87b73633-7a17-4c16-b549-6bfc169974b7"],

Cell[CellGroupData[{

Cell[BoxData["R"], "Input",
 CellChangeTimes->{{3.782359729826147*^9, 3.7823597314029303`*^9}, {
  3.7823619574455385`*^9, 3.7823619582498064`*^9}},
 CellLabel->
  "In[454]:=",ExpressionUUID->"1e9ca08e-5035-4581-8640-2b840f42d1a7"],

Cell[BoxData["R"], "Output",
 CellChangeTimes->{3.782361959275086*^9},
 CellLabel->
  "Out[454]=",ExpressionUUID->"24038a1a-a450-4c05-ad05-f928c1e99e89"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "A", "]"}]], "Input",
 CellChangeTimes->{{3.782361945006624*^9, 3.782361953562092*^9}},
 CellLabel->
  "In[453]:=",ExpressionUUID->"47705165-d9b9-470d-9f68-90a0b028602d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"??", 
  SubscriptBox["R", "A"]}]], "Input",
 CellChangeTimes->{{3.7823597892335424`*^9, 3.7823597923872585`*^9}},
 CellLabel->
  "In[390]:=",ExpressionUUID->"14ec02a5-97f6-4bf3-9756-bc1f8effa430"],

Cell[BoxData[
 SubscriptBox["R", "A"]], "Print", "PrintUsage",
 CellChangeTimes->{3.782359793530177*^9},
 CellTags->
  "Info3903782388593-8177204",ExpressionUUID->"7785267d-22b7-4f6b-a11b-\
e073944361ae"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["r", "x"], "=", "0.2"}]], "Input",
 CellChangeTimes->{{3.7823608559250007`*^9, 3.7823608808461328`*^9}},
 CellLabel->
  "In[529]:=",ExpressionUUID->"546299cb-aabe-41ee-908b-783d1458fc76"],

Cell[BoxData["0.2`"], "Output",
 CellChangeTimes->{{3.7823608714352913`*^9, 3.7823608813141108`*^9}, 
   3.7823619243461967`*^9, 3.7823632190017896`*^9},
 CellLabel->
  "Out[529]=",ExpressionUUID->"0fb476de-1217-427e-a8d6-7f4ac8b06cd6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", "[", 
  RowBox[{"810", ",", "10"}], "]"}]], "Input",
 CellChangeTimes->{{3.782359588988118*^9, 3.7823595954408236`*^9}, {
  3.782359692845282*^9, 3.7823596931454716`*^9}, {3.7823597365277643`*^9, 
  3.7823597371052275`*^9}},
 CellLabel->
  "In[530]:=",ExpressionUUID->"9d22625d-2779-4bc8-83b3-ed65bbaf587f"],

Cell[BoxData[
 TemplateBox[{
  "NIntegrate","inumr",
   "\"\:5728\:4ee5 \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"{\\\", \
RowBox[{\\\"0\\\", \\\",\\\", \\\"0.0077570188977525755`\\\"}], \\\"}\\\"}], \
\\\"}\\\"}]\\) \:4e3a\:754c\:7684\:533a\:57df\:5185\:ff0c\:5bf9\:4e8e\:6240\
\:6709\:91c7\:6837\:70b9\:ff0c\:8ba1\:7b97\:88ab\:79ef\:51fd\:6570 \
\\!\\(\\*SuperscriptBox[\\\"A\\\", \\\"2\\\"]\\) \:5f97\:5230\:975e\:6570\
\:503c.\"",2,530,99,27753601902997625991,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7823608466937437`*^9, 3.782360888685269*^9, 
  3.78236196455229*^9, 3.7823620208164034`*^9, 3.7823632224509287`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[530]:=",ExpressionUUID->"0a58fbba-72f3-4abc-\
8f47-bfd150c94af6"],

Cell[BoxData[
 RowBox[{"NIntegrate", "[", 
  RowBox[{
   RowBox[{"Simplify", "[", 
    RowBox[{"N", "[", 
     SuperscriptBox["A", "2"], "]"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", 
     FractionBox[
      RowBox[{"2", " ", "\[Pi]"}], "810"]}], "}"}]}], "]"}]], "Output",
 CellChangeTimes->{{3.7823595962446737`*^9, 3.7823596017848587`*^9}, {
   3.78235968483168*^9, 3.7823597067999315`*^9}, 3.78235973788861*^9, {
   3.7823597706667542`*^9, 3.782359780660712*^9}, {3.7823608208011494`*^9, 
   3.782360846742611*^9}, 3.782360888737129*^9, 3.7823619645911846`*^9, 
   3.7823620208595047`*^9, 3.782363222482724*^9},
 CellLabel->
  "Out[530]=",ExpressionUUID->"7d5999b3-00a7-4b5a-b2a6-6b12dcac0d02"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", " ", "[", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"ListPlot", "[", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"f", "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "810", ",", "2000"}], "}"}]}], "]"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"y", ",", "0", ",", "50", ",", "10"}], "}"}]}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.782358741458709*^9, 3.782358810910674*^9}, {
  3.7823588883487587`*^9, 3.782358888844912*^9}, {3.7823592102968845`*^9, 
  3.782359216922138*^9}, {3.782359279613735*^9, 3.782359296480399*^9}, {
  3.782359341034562*^9, 3.782359363358288*^9}, {3.7823594237723613`*^9, 
  3.782359442445005*^9}, {3.782359485040704*^9, 3.7823595627577915`*^9}},
 CellLabel->
  "In[373]:=",ExpressionUUID->"1d0a504d-24bc-4a3c-af47-6eecc9b71f80"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 1}, {0, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.7823595681561813`*^9},
 CellLabel->
  "Out[373]=",ExpressionUUID->"8c0aefd6-3d72-4f2b-bf15-bd2c7549e515"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7823589298323493`*^9, 
  3.7823589301532764`*^9}},ExpressionUUID->"a9798533-c519-4035-b546-\
631309c3a5ef"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.7823588358124313`*^9, 3.782358839519519*^9}},
 CellLabel->
  "In[370]:=",ExpressionUUID->"13678786-4721-4858-aaa8-d4287c825854"],

Cell[BoxData[
 TemplateBox[{
  "NIntegrate","precw",
   "\"\:53c2\:6570\:51fd\:6570\:7684\:7cbe\:5ea6 \
(\\!\\(\\*RowBox[{\\\"1.2120474765922073`*^-84\\\", \\\" \\\", \
SuperscriptBox[RowBox[{\\\"(\\\", \
RowBox[{RowBox[{\\\"5.685468590559114`*^39\\\", \\\" \\\", \
RowBox[{\\\"Cos\\\", \\\"[\\\", RowBox[{\\\"810.`\\\", \\\" \\\", \
\\\"t\\\"}], \\\"]\\\"}]}], \\\"-\\\", \
RowBox[{\\\"3.312793996676929`*^39\\\", \\\" \\\", RowBox[{\\\"Sin\\\", \\\"[\
\\\", RowBox[{\\\"810.`\\\", \\\" \\\", \\\"t\\\"}], \\\"]\\\"}]}]}], \\\")\\\
\"}], \\\"2\\\"]}]\\)) \:5c0f\:4e8e WorkingPrecision \
(\\!\\(\\*RowBox[{\\\"26.`\\\"}]\\)).\"",2,370,72,27753601902997625991,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.7823588117490144`*^9, 3.7823588406275563`*^9}, 
   3.7823589056144876`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[370]:=",ExpressionUUID->"7e0a68ab-9320-49e1-\
a4f0-c48244e7d573"],

Cell[BoxData[
 TemplateBox[{
  "NIntegrate","precw",
   "\"\:53c2\:6570\:51fd\:6570\:7684\:7cbe\:5ea6 \
(\\!\\(\\*RowBox[{\\\"1.2120474765922073`*^-84\\\", \\\" \\\", \
SuperscriptBox[RowBox[{\\\"(\\\", \
RowBox[{RowBox[{\\\"5.685468590559114`*^39\\\", \\\" \\\", \
RowBox[{\\\"Cos\\\", \\\"[\\\", RowBox[{\\\"810.`\\\", \\\" \\\", \
\\\"t\\\"}], \\\"]\\\"}]}], \\\"-\\\", \
RowBox[{\\\"3.312793996676929`*^39\\\", \\\" \\\", RowBox[{\\\"Sin\\\", \\\"[\
\\\", RowBox[{\\\"810.`\\\", \\\" \\\", \\\"t\\\"}], \\\"]\\\"}]}]}], \\\")\\\
\"}], \\\"2\\\"]}]\\)) \:5c0f\:4e8e WorkingPrecision \
(\\!\\(\\*RowBox[{\\\"26.`\\\"}]\\)).\"",2,370,73,27753601902997625991,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.7823588117490144`*^9, 3.7823588406275563`*^9}, 
   3.7823589056583614`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[370]:=",ExpressionUUID->"b58c027f-9f63-42b1-\
b980-341db2156052"],

Cell[BoxData[
 TemplateBox[{
  "NIntegrate","precw",
   "\"\:53c2\:6570\:51fd\:6570\:7684\:7cbe\:5ea6 \
(\\!\\(\\*RowBox[{\\\"1.2120474765922073`*^-84\\\", \\\" \\\", \
SuperscriptBox[RowBox[{\\\"(\\\", \
RowBox[{RowBox[{\\\"5.685468590559114`*^39\\\", \\\" \\\", \
RowBox[{\\\"Cos\\\", \\\"[\\\", RowBox[{\\\"810.`\\\", \\\" \\\", \
\\\"t\\\"}], \\\"]\\\"}]}], \\\"-\\\", \
RowBox[{\\\"3.312793996676929`*^39\\\", \\\" \\\", RowBox[{\\\"Sin\\\", \\\"[\
\\\", RowBox[{\\\"810.`\\\", \\\" \\\", \\\"t\\\"}], \\\"]\\\"}]}]}], \\\")\\\
\"}], \\\"2\\\"]}]\\)) \:5c0f\:4e8e WorkingPrecision \
(\\!\\(\\*RowBox[{\\\"26.`\\\"}]\\)).\"",2,370,74,27753601902997625991,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.7823588117490144`*^9, 3.7823588406275563`*^9}, 
   3.7823589057496634`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[370]:=",ExpressionUUID->"3fe2648a-9353-4cd9-\
87b2-22f82c6a7806"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"\:5728\:672c\:6b21\:8ba1\:7b97\:4e2d\:ff0c\\!\\(\\*StyleBox[RowBox[{\\\"\
NIntegrate\\\", \\\"::\\\", \\\"precw\\\"}], \\\"MessageName\\\"]\\) \:7684\
\:8fdb\:4e00\:6b65\:8f93\:51fa\:5c06\:88ab\:6291\:5236.\"",2,370,75,
   27753601902997625991,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.7823588117490144`*^9, 3.7823588406275563`*^9}, 
   3.782358905789557*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[370]:=",ExpressionUUID->"c1308880-bc7a-4a85-\
8ab4-14b8446d4fc8"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], 
     AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJwt1Qs4VfkaBnB0UYTOie3OdtsoScgh6pUYSuUyplJCikol1UwZqVNTdJea
TsmodFIzc3S6T2m6kE5puiokkbFRrrHdNpuNg3nX8+xnP8va6///vvf3rcUk
YkNgpJKCgsLTwc/Q9zbNy97i+D1IT/LYolKVgr/Oj/N8J7KNEhsDss+gYMzl
09k/bOH1TF6PRdqpoeNX9MRGS2aPWMvfX+bvo9AUMPSXazihtSBus+8K3n+T
94dDpeR87AyV29BcPuNtxohQrneH6y2FdciRvE6re4iaV6R+LHkx13/A9Rci
c/DukvO5+OpC+ha//CDu9xC5j95lhPt+DYfh4xF+zmidO1kpkPv/j/v741Gn
1eAOj1F0LNtjXb4f68lnPQsQOLzhU3R7JAUZb5jH+v5gfb4Qxw8t+AwLE9fO
qb4zh/W+wLfPel4vTfbBxqHyYl+iAtPmj9vuzfpfsf6voDB8FCA/tznYKd2L
/RRAVLft+ux8T/gMb/AG404UOq1V8mR/b7D6sEnHbN/ZGNot5MhbpE63XiE8
58F+C9mvB4bbKSlEQeeJgMD1s9h/EVKVHSUvxe4wHirHqBjvJ2uECcLcmUcx
kkNizCfnA6uiho53mLChwvTnipnMp4T5zMTQapqXS/A5s7blgsMM5vUeXhmH
F7pucIN0aLnO96hTeT4h9KYr8ytlfq6YObzgBzwJtQw7sGQ68/yABSt/Odl7
xwXD5SWWIeP2Dz6RQhfmW46saLnn4mRnvHwxdJSjYudJ9VolZ+b9ETKlB0HV
Cf+A1nCBg+krF3qp9zkx/wrm74Th5UL+xHadV5bmak70qKTHNPZTCaUnbbq+
U6bRpxLTle09DPId2V8lIsfFjEyJcKSXmF6O7FeMOzVRuWWZDvQTo2BryHgf
Xwf2X4WAu2OySjvs6VmFnfOaN9qes2ceVZAlzK+S+tnTt5q+9synGo6HNLyc
bk2ldzV+DH3826L1U5lXDd7Mq6xwF02lfw3U1jycIRHbMb8aeCbmLF1y1o7z
8AlqlTsyj4baMc9PWKPdcG610I7z8QnPFAdkGvlTmO9n9I9Rv+QYMIXz8hl3
j9XKSipsmfdnXE+z/tAeY8v5qeX82DL/WqDk06jgtMmcp1qkrfWb2OAwmR51
UFGs3+pTYEOPOjyI1qqaFmNDjzpUudtFx4y3oUcdlDMKbkTdnESPesQUHX/4
OngSPeo5f5PoUY/Vhnpzav47kR4NEEaWpZ8MnoiUYY8GhBRXu+aNmUiPBpSl
l15pz7amRyP+tilvme06a3o0YmHusX/1GlvToxFmbmP7mt9Z0aMJeRmygxHJ
VvRoQnn5rspibyt6NHGerejxBS9XNZe45ljS4wtuz1+V+SXBkh5fMPLtvktx
bpb0aIa4+OHYs3IRPZqxZ4+G1DRHRI9mPBj3beKTXSJ6tKDef/+v4d4ierRA
b9MVN1s1ET1aUDR35KrdhRb0kPD5sGA/Ejx6EZiwNNKCPhJkXm3Gj1Ms2J8E
9iMN5Id6zOklwWbnsc4Hn5izXwl6FuQXRxw3p58ELo6y89cjzNl/KxZf7G8K
sDenZyufL3Pm0Yrw7acuuRea0bcVXTZBO+MzzZhPKyZG+98y2GpG71Zo158L
ujbXjHm1oXKcr+JjIzP6t+Gd6981xR2mzK8N3ReSF977w5TPZxueLasKMc8w
ZZ5t6D/a92b5VlPORxumrkw1UfI3Zb7t8BBPUl1lZcp5aefza8q8B88tto/I
LDPh/LTDYo3zDvdbJsy/HTef38h6edSE89QOk7si0Zl1JvToQIZCjubjOSb0
6MCWzao2ryxM6NEBr19en1EfYUKPDqgFufupioX06MCNM0UHFHKF9OjA9tK4
TSlnhfTowNr8R1FaO4T06ESWgf3+56FCenQi+fZzt9MQ0qMTi5TTvl0nFNKj
EzOzNMJaFIX06MSs3T99PJJvTI9OPL2iMirqgDE9pDjir73aJ8CYHlIoaYxS
nyUwpocUp9TL7F3+NKKHFEu+q/ctvGhEDynSRXuf9cUY0UOKpIMJHy46G9Gj
i+8fI3p0Id1X1dP7lSE9uqBz4PDKRamG9OhCpuVvWU1RhvToQkHT4/rmqYb0
6IJU9/fvVyga0qOb7ysDenSjPDBalHrGgB6D11e4LOtfb0CPbjToPl19YaYB
PbrxzcF2+7jxBvToRvMuJ/XgKn16dGPjvhGm76/r00OGQ6Pjrh1J0qeHDLbt
59Wkwfr0kMHpftNodVt9eshQEifNCVPUp4cMo7Vj8gzf69FDxvehHj16YLSp
8rbnbj169ODC99/NiwvWo0cPVK0m1WXZ6fF92YPprmn3S8bo0aMH/rVhn/aJ
denRA6uaxmXf3NGlRy9sUuJKpCm69OjFwctRs6ev06VHL8T2eaGuXrr06IXk
n2XL1YS69OhFeem9VGGPDj16cSI5y7HznQ495DjxeXNi6VUdesghufpEWHtI
hx5yTLj1b/nFaB16yLHXIdZO20eHHnI4qv8nMtBChx5yvp916CGHgcYmy1Fi
bXr0oW6ffnp8jjY9+lASHJ2Uc1qbHn2Qxyv/fmmbNj36EH7j+t7GJdr06IOL
7TZpgps2PfrQ3aw5XslAmx79kEQes03tFdCjHz3OX++eVSGgRz+iEz3ORt0X
0KMfFidF8eIMAT36UZ8002/GLgE9+hFutEf3pxUCegzAQxD5McZbQI8BjHQL
dLthJaDHAOxiF0SYqQroMYDnRvt9drRo0WMAo9O9rJSLtOgxANcXglRRthY9
FNz/+v+hhf8Di/a9tg==
      "]]}, {}}, {}, {}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 2.}, {0, 0.0009959789808803921}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.782358816243763*^9, 3.7823588424282713`*^9}, 
   3.782358907591787*^9},
 CellLabel->
  "Out[370]=",ExpressionUUID->"67f148fc-64a4-4085-942a-5c014ae6fce4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "100"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7823586933799624`*^9, 3.782358706710891*^9}},
 CellLabel->
  "In[366]:=",ExpressionUUID->"80270c66-1226-4a47-bfad-ed5a780e76c1"],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.7823587192044983`*^9},
 CellLabel->
  "Out[366]=",ExpressionUUID->"ba8e85db-c022-42d3-8993-de04a02a6a83"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", "[", "810", "]"}]], "Input",
 CellChangeTimes->{{3.7823586608777733`*^9, 3.782358664239806*^9}},
 CellLabel->
  "In[365]:=",ExpressionUUID->"3ed5d821-d1d9-4694-bdf8-a7fc962fa4d3"],

Cell[BoxData["2.0354663552189375`*^-7"], "Output",
 CellChangeTimes->{3.782358665520442*^9},
 CellLabel->
  "Out[365]=",ExpressionUUID->"439f7009-ffe3-41dc-b769-54e8cd9d091e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Omega]", "=", "810"}], ";", 
  RowBox[{
   SubscriptBox["R", "A"], "=", "10"}], ";", 
  RowBox[{
   SubscriptBox["r", "x"], "=", "0.2"}]}]], "Input",
 CellChangeTimes->{{3.7823585846613307`*^9, 3.782358635122508*^9}},
 CellLabel->
  "In[362]:=",ExpressionUUID->"3ae8f813-f2b2-4f31-b1a2-7e652b396f08"],

Cell[BoxData["0.2`"], "Output",
 CellChangeTimes->{3.7823586357519464`*^9},
 CellLabel->
  "Out[362]=",ExpressionUUID->"3a8d5073-4b9e-4143-aec6-3ecb65bd74f6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 SubscriptBox["R", "A"]], "Input",
 CellChangeTimes->{{3.7823586260311356`*^9, 3.782358627834965*^9}},
 CellLabel->
  "In[363]:=",ExpressionUUID->"fbbb2592-2a78-4e97-905d-3d9bc3c2a2f7"],

Cell[BoxData["10"], "Output",
 CellChangeTimes->{{3.7823586287765503`*^9, 3.7823586388990564`*^9}},
 CellLabel->
  "Out[363]=",ExpressionUUID->"48e6d899-7415-4e8e-aede-9b9c609c8122"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"Simplify", "[", 
    RowBox[{"N", "[", 
     RowBox[{"A", "^", "2"}], "]"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", 
     RowBox[{"2", 
      RowBox[{"Pi", "/", "\[Omega]"}]}]}], "}"}]}], "]"}]], "Input",
 CellLabel->
  "In[364]:=",ExpressionUUID->"92ba492a-72f5-439c-8de9-b2f5d66b79c0"],

Cell[BoxData["2.0354663552189375`*^-7"], "Output",
 CellChangeTimes->{3.782358645439432*^9},
 CellLabel->
  "Out[364]=",ExpressionUUID->"50b816f5-74cb-4b16-8016-b90c3c09c594"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", "[", "810", "]"}]], "Input",
 CellChangeTimes->{{3.7823508041531525`*^9, 3.782350807609907*^9}, {
  3.782352305607481*^9, 3.7823523069040127`*^9}, {3.782352454582038*^9, 
  3.7823524563033924`*^9}},
 CellLabel->
  "In[359]:=",ExpressionUUID->"2f70e729-9e70-410d-b7d0-b722fdee1421"],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{
  3.78235080854042*^9, {3.7823509010361433`*^9, 3.7823509046599317`*^9}, 
   3.7823510022548637`*^9, 3.7823523090243435`*^9, {3.782352484443777*^9, 
   3.782352493659128*^9}, 3.782352587225664*^9, 3.782352935034403*^9, 
   3.782352997867401*^9, 3.78235314385723*^9, 3.7823532329910975`*^9, 
   3.7823534588162613`*^9, 3.7823582220328193`*^9, 3.782358570096549*^9},
 CellLabel->
  "Out[359]=",ExpressionUUID->"c95c1f2c-38b3-459e-95e0-514682e85f6b"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7823506560129175`*^9, 
  3.7823506560647793`*^9}},ExpressionUUID->"25cd4e11-6d6e-452e-ab35-\
0111f8fec046"],

Cell[BoxData[
 RowBox[{"??", "t"}]], "Input",
 CellChangeTimes->{{3.7823493171440244`*^9, 3.782349318234079*^9}},
 CellLabel->
  "In[250]:=",ExpressionUUID->"9aec949b-9131-48ce-acfe-c4858619d8ca"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{"Assuming", "[", 
   RowBox[{
    RowBox[{"Element", "[", 
     RowBox[{"t", ",", "Reals"}], "]"}], ",", 
    RowBox[{"Re", "[", 
     RowBox[{"I", " ", "t"}], "]"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7823498846864424`*^9, 3.7823499628326683`*^9}},
 CellLabel->
  "In[260]:=",ExpressionUUID->"8e9396ae-1cf7-4bce-9334-e80457831981"],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{"Im", "[", "t", "]"}]}]], "Output",
 CellChangeTimes->{{3.782349891383096*^9, 3.782349912440803*^9}, 
   3.782349963408129*^9, 3.7823499946455936`*^9},
 CellLabel->
  "Out[260]=",ExpressionUUID->"0ec6c86c-03ba-412b-967d-f8788a4a1070"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7823487682135677`*^9, 
  3.7823487826100693`*^9}},ExpressionUUID->"8a61e223-1514-4d80-bb23-\
4c041970d8a2"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.782348785782585*^9, 
  3.782348785796548*^9}},ExpressionUUID->"ae926af7-1c47-4511-8553-\
5d5d673f888a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Element", "[", 
  RowBox[{"t", ",", "Reals"}], "]"}]], "Input",
 CellChangeTimes->{{3.7823487499179*^9, 3.782348764454621*^9}},
 CellLabel->
  "In[256]:=",ExpressionUUID->"87230e01-578b-4bfa-9ed9-dab28026430b"],

Cell[BoxData[
 RowBox[{"t", "\[Element]", 
  TemplateBox[{},
   "Reals"]}]], "Output",
 CellChangeTimes->{3.7823487651178837`*^9, 3.782349896173306*^9},
 CellLabel->
  "Out[256]=",ExpressionUUID->"353460f4-90d6-47c4-85f6-9eca985d1525"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"\[Omega]", ",", 
   SubscriptBox["R", "A"], ",", 
   SubscriptBox["r", "x"]}], "]"}]], "Input",
 CellChangeTimes->{{3.7823486137725735`*^9, 3.7823486316133347`*^9}},
 CellLabel->
  "In[557]:=",ExpressionUUID->"357342ec-7a64-4d95-8ffb-2a23b71f1a18"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Omega]", "=", "810"}], ";", 
  RowBox[{
   SubscriptBox["R", "A"], "=", "10"}], ";", 
  RowBox[{
   SubscriptBox["r", "x"], "=", "0.2"}]}]], "Input",
 CellChangeTimes->{{3.7823486603659816`*^9, 3.782348691628848*^9}},
 CellLabel->
  "In[240]:=",ExpressionUUID->"70374bd4-3ec5-403d-86d2-246f6a0f6a91"],

Cell[CellGroupData[{

Cell[BoxData[
 SubscriptBox["r", "x"]], "Input",
 CellChangeTimes->{{3.782348703600803*^9, 3.7823487205919113`*^9}},
 CellLabel->
  "In[243]:=",ExpressionUUID->"5ea5c3d0-051b-445d-8e46-4a844e318aba"],

Cell[BoxData["0.2`"], "Output",
 CellChangeTimes->{{3.7823486924346933`*^9, 3.7823487217009463`*^9}},
 CellLabel->
  "Out[243]=",ExpressionUUID->"35d420e8-a95c-4509-99cd-98140ef89bd8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Element", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     SubscriptBox["R", "A"], ",", "\[Omega]", ",", "t"}], "}"}], ",", 
   "Reals"}], "]"}]], "Input",
 CellChangeTimes->{{3.782348069905031*^9, 3.782348081231742*^9}, {
  3.782348241366522*^9, 3.78234825137376*^9}},
 CellLabel->
  "In[235]:=",ExpressionUUID->"43e77abb-7636-4ad9-a529-c663257b6f71"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    SubscriptBox["R", "A"], "|", "\[Omega]", "|", "t"}], ")"}], "\[Element]", 
  TemplateBox[{},
   "Reals"]}]], "Output",
 CellChangeTimes->{3.782348026790452*^9, 3.7823480827217665`*^9, 
  3.782348253009386*^9},
 CellLabel->
  "Out[235]=",ExpressionUUID->"ec107837-e418-40f8-8237-282d6d950e0b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"T", "=", 
  RowBox[{"2", 
   RowBox[{"Pi", "/", "\[Omega]"}]}]}]], "Input",
 CellChangeTimes->{{3.7823478795616484`*^9, 3.7823479064487467`*^9}},
 CellLabel->
  "In[229]:=",ExpressionUUID->"e0abd2fc-0b3e-4833-a396-3aa116bcd9a8"],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", " ", "\[Pi]"}], "\[Omega]"]], "Output",
 CellChangeTimes->{3.7823479085381584`*^9},
 CellLabel->
  "Out[229]=",ExpressionUUID->"56f392f0-02b7-414c-b910-b40e2a7e87cc"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "\[Omega]_", "]"}], "=", 
  RowBox[{"NIntegrate", "[", 
   RowBox[{"ComplexExpand", "[", 
    RowBox[{
     SubscriptBox["\[CapitalIota]", "1"], "-", 
     SubscriptBox["\[CapitalIota]", "2"]}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.782347911781486*^9, 3.7823479426948557`*^9}, {
  3.7823479769457755`*^9, 
  3.782347999790683*^9}},ExpressionUUID->"19fd68b6-eb78-499e-9288-\
a1aa7e339dcb"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7822979678018007`*^9, 
  3.7822979678307385`*^9}},ExpressionUUID->"983652bd-f2d8-4006-8ed1-\
e74c513374a5"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7822939029059134`*^9, 
  3.782293903761624*^9}},ExpressionUUID->"005a3a09-23d1-4bdd-9276-\
76d1fcd82b5a"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.782293705670236*^9, 
  3.7822937071044006`*^9}},ExpressionUUID->"5d87f8ed-f074-43f9-a156-\
460281f18cdc"],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"R1", ",", "R2", ",", "R3"}], "]"}]], "Input",
 CellChangeTimes->{{3.7823640762382736`*^9, 3.7823640876239643`*^9}},
 CellLabel->
  "In[561]:=",ExpressionUUID->"74beb0b0-1f1d-419d-a709-85c4c4bc2259"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"R1", "=", "100"}], ";", 
  RowBox[{"R2", "=", "100"}], ";", 
  RowBox[{"R3", "=", "100"}]}]], "Input",
 CellChangeTimes->{{3.782294073747345*^9, 3.7822941052928147`*^9}, {
  3.7823006979120483`*^9, 3.78230070237711*^9}, {3.782346381599296*^9, 
  3.7823464024654846`*^9}, {3.782347532445573*^9, 3.7823475404571505`*^9}, {
  3.782362061691992*^9, 3.7823620740179014`*^9}, {3.78236316236405*^9, 
  3.7823631833121405`*^9}},
 CellLabel->
  "In[526]:=",ExpressionUUID->"057fcff1-27b8-4d63-93da-5d6c4a802a3e"],

Cell[BoxData["100"], "Output",
 CellChangeTimes->{3.7823631841244802`*^9},
 CellLabel->
  "Out[526]=",ExpressionUUID->"c19ceb70-c53b-4be7-9414-a69b2717d124"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"L", "=", 
  RowBox[{"11", "*", 
   RowBox[{"10", "^", 
    RowBox[{"-", "2"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7823007168763695`*^9, 3.7823007228792677`*^9}},
 CellLabel->
  "In[527]:=",ExpressionUUID->"76ddea10-396b-4615-8e71-f459d7bc1b80"],

Cell[BoxData[
 FractionBox["11", "100"]], "Output",
 CellChangeTimes->{3.7823007240401783`*^9, 3.7823463732257233`*^9, 
  3.7823475436176963`*^9, 3.782362077422785*^9, 3.782363187580017*^9},
 CellLabel->
  "Out[527]=",ExpressionUUID->"0ff99400-6152-432d-b3a5-92213a8076b9"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"L", ",", "C"}], "]"}]], "Input",
 CellChangeTimes->{{3.7822941260613346`*^9, 3.7822941271254907`*^9}, {
  3.782298719457838*^9, 3.782298723789221*^9}, {3.782364047282143*^9, 
  3.7823640483275533`*^9}},
 CellLabel->
  "In[559]:=",ExpressionUUID->"1143e8cb-3537-4914-ae9d-60d5f28b4142"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Unprotect", "[", "C", "]"}]], "Input",
 CellChangeTimes->{{3.7822941524330835`*^9, 3.7822941597644777`*^9}},
 CellLabel->"In[42]:=",ExpressionUUID->"bf75c573-6548-4f30-a701-fcb4d053c286"],

Cell[BoxData[
 RowBox[{"{", "\<\"C\"\>", "}"}]], "Output",
 CellChangeTimes->{3.782294160462611*^9},
 CellLabel->"Out[42]=",ExpressionUUID->"b3b95d1d-eef9-4054-9875-ebee25e21fec"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"C", "=", 
  RowBox[{"0.1", "*", 
   RowBox[{"10", "^", 
    RowBox[{"-", "6"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7822941384128327`*^9, 3.782294147847602*^9}},
 CellLabel->
  "In[525]:=",ExpressionUUID->"e42c1aa9-5205-4624-99c3-58d7635453a3"],

Cell[BoxData["1.`*^-7"], "Output",
 CellChangeTimes->{{3.7822941488080325`*^9, 3.782294162944973*^9}, 
   3.7823006778052387`*^9, 3.782346365280961*^9, 3.782347815992222*^9, 
   3.7823620496750937`*^9, 3.7823631535644445`*^9},
 CellLabel->
  "Out[525]=",ExpressionUUID->"56f88be4-e823-4343-8f2e-4cd27a741a30"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"U", "=", 
  RowBox[{
   SubscriptBox["U", "0"], " ", 
   RowBox[{"E", "^", 
    RowBox[{"(", 
     RowBox[{"I", " ", "\[Omega]", " ", "t"}], ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.782301723739999*^9, 3.782301746296673*^9}, {
  3.782347641194567*^9, 3.7823476874289565`*^9}},
 CellLabel->
  "In[223]:=",ExpressionUUID->"85fc551f-5eff-45dd-aaf1-f3194444280f"],

Cell[BoxData[
 RowBox[{"1.78`", " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{"\[ImaginaryI]", " ", "t", " ", "\[Omega]"}]]}]], "Input",
 CellChangeTimes->{{3.782347696109743*^9, 
  3.782347697386916*^9}},ExpressionUUID->"60994807-6468-484b-b550-\
c8b6ec040b0b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ComplexExpand", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.7823476998273897`*^9, 3.7823477062014313`*^9}},
 CellLabel->
  "In[224]:=",ExpressionUUID->"2873b9d6-91d8-485b-a6dc-fcd6ca4ba946"],

Cell[BoxData[
 RowBox[{
  RowBox[{"1.78`", " ", 
   RowBox[{"Cos", "[", 
    RowBox[{"t", " ", "\[Omega]"}], "]"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"0.`", "\[VeryThinSpace]", "+", 
     RowBox[{"1.78`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
   RowBox[{"Sin", "[", 
    RowBox[{"t", " ", "\[Omega]"}], "]"}]}]}]], "Output",
 CellChangeTimes->{3.782347706952932*^9},
 CellLabel->
  "Out[224]=",ExpressionUUID->"7f709b96-1ab9-44ac-a7f6-18bb424efb7f"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{
  "R0", ",", "R2", ",", "R3", ",", "U", ",", "\[Omega]", ",", "U0", ",", "C", 
   ",", "L", ",", "r"}], "]"}]], "Input",
 CellChangeTimes->{{3.7823642601936345`*^9, 3.7823642927169704`*^9}, {
  3.7823643367665253`*^9, 3.782364337165425*^9}, {3.7823643950827165`*^9, 
  3.7823643990923667`*^9}},
 CellLabel->
  "In[582]:=",ExpressionUUID->"773e44bc-59c3-46d8-9bff-4ab44ab2b1b4"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.782347554304123*^9, 
  3.782347559236278*^9}},ExpressionUUID->"2fa72b0c-1629-416e-9594-\
ce8a945d63d7"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7822986891299047`*^9, 3.7822987114223213`*^9}},
 EmphasizeSyntaxErrors->
  True,ExpressionUUID->"06531a15-6b62-4a44-af33-3fe8c0ed3cf3"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7822941211624374`*^9, 
  3.7822941219243984`*^9}},ExpressionUUID->"cc6c0f18-6133-4386-9dd2-\
cf6c84e122f0"]
}, Open  ]]
},
WindowSize->{1264, 637},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (2018\:5e743\:670828\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Info1873782375038-1664230"->{
  Cell[4583, 132, 217, 5, 45, "Print",ExpressionUUID->"19ad5493-7151-41df-bef0-5abf81bd5aa1",
   CellTags->"Info1873782375038-1664230"]},
 "Info3903782388593-8177204"->{
  Cell[74744, 2042, 204, 5, 45, "Print",ExpressionUUID->"7785267d-22b7-4f6b-a11b-e073944361ae",
   CellTags->"Info3903782388593-8177204"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Info1873782375038-1664230", 101501, 2799},
 {"Info3903782388593-8177204", 101671, 2802}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 251, 4, 96, "Title",ExpressionUUID->"8188612c-7ce9-4259-a803-b1f1eaae1005"],
Cell[834, 28, 276, 5, 45, "Input",ExpressionUUID->"c927d000-e8ba-40f2-b881-5029808c0946"],
Cell[CellGroupData[{
Cell[1135, 37, 378, 7, 28, "Input",ExpressionUUID->"54760058-b8fc-48e9-bea1-78d1299388a6"],
Cell[1516, 46, 461, 8, 32, "Output",ExpressionUUID->"e7f30582-1215-4465-a1a2-09249555281e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2014, 59, 211, 4, 45, "Input",ExpressionUUID->"5c98801f-bc52-4ded-b014-ce3811cce6f1"],
Cell[2228, 65, 300, 6, 32, "Output",ExpressionUUID->"40f7b770-e6b8-4739-beef-a594d85e7c63"]
}, Open  ]],
Cell[2543, 74, 209, 4, 45, "Input",ExpressionUUID->"08c9a06d-3265-455f-a7bf-2cd567e45311"],
Cell[CellGroupData[{
Cell[2777, 82, 356, 8, 45, "Input",ExpressionUUID->"63be9049-3f41-4d61-978e-b4a3dd8d4222"],
Cell[3136, 92, 349, 7, 56, "Output",ExpressionUUID->"e14e9b41-b944-4b19-a7b6-0836aeb70797"]
}, Open  ]],
Cell[3500, 102, 387, 9, 85, "Input",ExpressionUUID->"f05a5f3f-5090-4736-b32a-5e6a02e32130"],
Cell[3890, 113, 432, 8, 45, "Input",ExpressionUUID->"b8b57e4a-944d-44ef-8a14-0b23149eda5b"],
Cell[CellGroupData[{
Cell[4347, 125, 233, 5, 28, "Input",ExpressionUUID->"e781e34b-8632-4078-9441-fca6d8ada869"],
Cell[4583, 132, 217, 5, 45, "Print",ExpressionUUID->"19ad5493-7151-41df-bef0-5abf81bd5aa1",
 CellTags->"Info1873782375038-1664230"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4837, 142, 223, 4, 28, "Input",ExpressionUUID->"e2bc052c-740f-434f-b776-50f95d4d0fd2"],
Cell[5063, 148, 209, 4, 32, "Output",ExpressionUUID->"284435bf-64dd-426c-8470-c2e89ad5d327"]
}, Open  ]],
Cell[5287, 155, 289, 6, 45, "Input",ExpressionUUID->"1abf8716-0490-4e08-b5cd-6e22d3f00c64"],
Cell[CellGroupData[{
Cell[5601, 165, 889, 22, 45, "Input",ExpressionUUID->"a2dcb186-c12c-4229-81f4-18131e6d8b61"],
Cell[6493, 189, 1064, 23, 32, "Output",ExpressionUUID->"77fdd6bd-c0b3-43ef-87d5-cf93e03b8d06"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7594, 217, 648, 17, 45, "Input",ExpressionUUID->"8021c52f-00a3-49f3-b687-e77b13e2848a"],
Cell[8245, 236, 876, 23, 57, "Output",ExpressionUUID->"e50abe5f-7897-4395-8c5a-bf13beb6cebb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9158, 264, 657, 18, 45, "Input",ExpressionUUID->"e46f925f-2261-495a-86d7-5501a9f14aee"],
Cell[9818, 284, 816, 22, 57, "Output",ExpressionUUID->"7e602c08-78e3-48f3-ba9b-942a54d4cdab"]
}, Open  ]],
Cell[10649, 309, 616, 14, 45, "Input",ExpressionUUID->"7cea025c-833b-4bc1-8c5d-d0b696334452"],
Cell[11268, 325, 9764, 241, 374, InheritFromParent,ExpressionUUID->"9a48a22c-d168-441b-9a90-2d2941a5ea80"],
Cell[21035, 568, 154, 3, 28, InheritFromParent,ExpressionUUID->"f6645a5c-33e7-4e44-8a55-0153e7c05d22"],
Cell[21192, 573, 156, 3, 28, InheritFromParent,ExpressionUUID->"b1dee312-039d-47fe-ad58-b63e2004560e"],
Cell[CellGroupData[{
Cell[21373, 580, 205, 4, 28, "Input",ExpressionUUID->"cefa0e40-7103-4b1a-bf88-380bfba7d260"],
Cell[21581, 586, 3409, 95, 168, "Output",ExpressionUUID->"3c85c2b3-c6a0-4c18-8f2a-387dab5ecebe"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25027, 686, 9500, 236, 374, InheritFromParent,ExpressionUUID->"afa239ee-4574-4e5d-828a-d1fc7144da26"],
Cell[34530, 924, 9054, 230, 209, "Output",ExpressionUUID->"f921873f-0d3a-4333-be67-2c95b21c6538"]
}, Open  ]],
Cell[CellGroupData[{
Cell[43621, 1159, 179, 3, 28, InheritFromParent,ExpressionUUID->"bbd05a0e-49c0-4803-a8fe-d370c1885f52"],
Cell[43803, 1164, 2477, 74, 82, "Output",ExpressionUUID->"1dbb385e-9f43-497a-8161-f17a06cb1197"]
}, Open  ]],
Cell[CellGroupData[{
Cell[46317, 1243, 202, 4, 28, "Input",ExpressionUUID->"3c212b4b-3463-4e89-a46d-48a3e0518343"],
Cell[46522, 1249, 5056, 139, 156, "Output",ExpressionUUID->"1a4564a4-5d22-4e13-ae54-da6a6fbbd4c8"]
}, Open  ]],
Cell[51593, 1391, 156, 3, 28, InheritFromParent,ExpressionUUID->"e21eba98-9114-4e65-af54-817e18d479cf"],
Cell[51752, 1396, 156, 3, 28, InheritFromParent,ExpressionUUID->"a12df8a4-560e-4e96-a1c0-8d894d4af311"],
Cell[51911, 1401, 154, 3, 28, InheritFromParent,ExpressionUUID->"7835c398-7eee-4de5-9041-3e46a3d868a9"],
Cell[52068, 1406, 333, 7, 45, "Input",ExpressionUUID->"39594e55-4dbc-4e77-a3c9-74ea15d5bfdf"],
Cell[CellGroupData[{
Cell[52426, 1417, 675, 14, 45, "Input",ExpressionUUID->"3e4c8520-b947-4768-ba5d-464a259ef73f"],
Cell[53104, 1433, 5348, 135, 153, "Output",ExpressionUUID->"37c08e8b-7379-4e6b-8e01-fba1a96998a1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[58489, 1573, 629, 17, 69, "Input",ExpressionUUID->"1b028bda-1c42-49c3-b46b-5c8211e94eb9"],
Cell[59121, 1592, 1426, 42, 62, "Output",ExpressionUUID->"fce45a5e-fa98-4dd6-aa06-fbed58a01a8f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[60584, 1639, 311, 6, 28, "Input",ExpressionUUID->"29534260-092a-4068-abb7-38cd3bd3645f"],
Cell[60898, 1647, 235, 5, 32, "Output",ExpressionUUID->"b5285ce2-b91a-489d-b4e7-854de4613099"]
}, Open  ]],
Cell[61148, 1655, 131, 3, 28, "Input",ExpressionUUID->"fc1ec842-24a4-4e90-9de6-5e7639d820be"],
Cell[61282, 1660, 154, 3, 28, "Input",ExpressionUUID->"94d7ea98-9067-4fec-92ce-f9aa86eb16ae"],
Cell[CellGroupData[{
Cell[61461, 1667, 244, 6, 28, InheritFromParent,ExpressionUUID->"0949f799-3726-4b93-a5dd-6dbe3d30ca53"],
Cell[61708, 1675, 247, 6, 32, "Output",ExpressionUUID->"7bbc085f-6212-4a9c-9b56-712fd585ab33"]
}, Open  ]],
Cell[CellGroupData[{
Cell[61992, 1686, 350, 6, 28, "Input",ExpressionUUID->"3ad82926-3536-4662-a2ba-59eac97da3c6"],
Cell[62345, 1694, 5261, 142, 156, "Output",ExpressionUUID->"54d29f43-5448-4df6-9afb-7f38bfd2eede"]
}, Open  ]],
Cell[CellGroupData[{
Cell[67643, 1841, 199, 4, 28, "Input",ExpressionUUID->"e581e8ac-1912-4215-8f26-dbc9533a900d"],
Cell[67845, 1847, 153, 3, 32, "Output",ExpressionUUID->"1582c042-f31c-4ef8-9c6e-d66d200e16c5"]
}, Open  ]],
Cell[68013, 1853, 177, 3, 28, InheritFromParent,ExpressionUUID->"f92dcb13-e07e-46e6-b4d1-79be039e8e24"],
Cell[CellGroupData[{
Cell[68215, 1860, 1469, 27, 45, InheritFromParent,ExpressionUUID->"ac38f196-a614-4376-8d9f-78476c512b7f"],
Cell[69687, 1889, 375, 6, 32, "Output",ExpressionUUID->"c93d579a-946a-46b6-aaf9-9b65ab5db9b6"]
}, Open  ]],
Cell[70077, 1898, 154, 3, 28, InheritFromParent,ExpressionUUID->"f49ca1f5-57f1-41ae-89d7-acc30afd4fd4"],
Cell[70234, 1903, 153, 3, 28, InheritFromParent,ExpressionUUID->"8439eb9e-0dae-43da-87a0-043dd3052179"],
Cell[70390, 1908, 151, 3, 28, InheritFromParent,ExpressionUUID->"158fcba4-aa62-41d8-967b-f22be05e1a12"],
Cell[CellGroupData[{
Cell[70566, 1915, 261, 5, 28, "Input",ExpressionUUID->"5cd7c370-080b-4b27-9ae9-71ab801f5a1d"],
Cell[70830, 1922, 206, 4, 32, "Output",ExpressionUUID->"71c364e1-937f-43e6-b440-02526902bd78"]
}, Open  ]],
Cell[CellGroupData[{
Cell[71073, 1931, 183, 3, 28, "Input",ExpressionUUID->"66ffe70a-a301-4649-b29e-684314fc02d9"],
Cell[71259, 1936, 159, 3, 32, "Output",ExpressionUUID->"7645afca-fe3a-41c8-b17a-7b60f5452e22"]
}, Open  ]],
Cell[CellGroupData[{
Cell[71455, 1944, 152, 3, 28, "Input",ExpressionUUID->"a5b8d13f-0909-416a-9e2d-a6c7a75d3070"],
Cell[71610, 1949, 209, 5, 55, "Output",ExpressionUUID->"cd299d96-f9c2-46d5-b8fc-3ffe6144e2c4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[71856, 1959, 199, 4, 28, "Input",ExpressionUUID->"1975d157-36f0-4e2c-929e-4ed6235186cb"],
Cell[72058, 1965, 207, 4, 32, "Output",ExpressionUUID->"f344ec26-b389-4452-8b18-2017f70a50c1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[72302, 1974, 198, 4, 28, "Input",ExpressionUUID->"9213dccd-7c80-443b-bdb4-be8eca1901f3"],
Cell[72503, 1980, 177, 4, 32, "Output",ExpressionUUID->"8b135bc2-6ae8-4427-839e-1ee8038976a1"]
}, Open  ]],
Cell[72695, 1987, 1167, 24, 45, "Input",ExpressionUUID->"87b73633-7a17-4c16-b549-6bfc169974b7"],
Cell[CellGroupData[{
Cell[73887, 2015, 231, 4, 28, "Input",ExpressionUUID->"1e9ca08e-5035-4581-8640-2b840f42d1a7"],
Cell[74121, 2021, 153, 3, 32, "Output",ExpressionUUID->"24038a1a-a450-4c05-ad05-f928c1e99e89"]
}, Open  ]],
Cell[74289, 2027, 207, 4, 45, InheritFromParent,ExpressionUUID->"47705165-d9b9-470d-9f68-90a0b028602d"],
Cell[CellGroupData[{
Cell[74521, 2035, 220, 5, 28, "Input",ExpressionUUID->"14ec02a5-97f6-4bf3-9756-bc1f8effa430"],
Cell[74744, 2042, 204, 5, 45, "Print",ExpressionUUID->"7785267d-22b7-4f6b-a11b-e073944361ae",
 CellTags->"Info3903782388593-8177204"]
}, Open  ]],
Cell[CellGroupData[{
Cell[74985, 2052, 226, 5, 28, "Input",ExpressionUUID->"546299cb-aabe-41ee-908b-783d1458fc76"],
Cell[75214, 2059, 236, 4, 32, "Output",ExpressionUUID->"0fb476de-1217-427e-a8d6-7f4ac8b06cd6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[75487, 2068, 335, 7, 28, "Input",ExpressionUUID->"9d22625d-2779-4bc8-83b3-ed65bbaf587f"],
Cell[75825, 2077, 759, 14, 26, "Message",ExpressionUUID->"0a58fbba-72f3-4abc-8f47-bfd150c94af6"],
Cell[76587, 2093, 721, 16, 55, "Output",ExpressionUUID->"7d5999b3-00a7-4b5a-b2a6-6b12dcac0d02"]
}, Open  ]],
Cell[CellGroupData[{
Cell[77345, 2114, 933, 22, 45, "Input",ExpressionUUID->"1d0a504d-24bc-4a3c-af47-6eecc9b71f80"],
Cell[78281, 2138, 1231, 35, 245, "Output",ExpressionUUID->"8c0aefd6-3d72-4f2b-bf15-bd2c7549e515"]
}, Open  ]],
Cell[79527, 2176, 156, 3, 28, InheritFromParent,ExpressionUUID->"a9798533-c519-4035-b546-631309c3a5ef"],
Cell[CellGroupData[{
Cell[79708, 2183, 212, 4, 45, "Input",ExpressionUUID->"13678786-4721-4858-aaa8-d4287c825854"],
Cell[79923, 2189, 920, 19, 31, "Message",ExpressionUUID->"7e0a68ab-9320-49e1-a4f0-c48244e7d573"],
Cell[80846, 2210, 920, 19, 31, "Message",ExpressionUUID->"b58c027f-9f63-42b1-b980-341db2156052"],
Cell[81769, 2231, 920, 19, 31, "Message",ExpressionUUID->"3fe2648a-9353-4cd9-87b2-22f82c6a7806"],
Cell[82692, 2252, 554, 12, 24, "Message",ExpressionUUID->"c1308880-bc7a-4a85-8ab4-14b8446d4fc8"],
Cell[83249, 2266, 4148, 84, 234, "Output",ExpressionUUID->"67f148fc-64a4-4085-942a-5c014ae6fce4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[87434, 2355, 321, 8, 45, "Input",ExpressionUUID->"80270c66-1226-4a47-bfad-ed5a780e76c1"],
Cell[87758, 2365, 162, 3, 32, "Output",ExpressionUUID->"ba8e85db-c022-42d3-8993-de04a02a6a83"]
}, Open  ]],
Cell[CellGroupData[{
Cell[87957, 2373, 207, 4, 28, "Input",ExpressionUUID->"3ed5d821-d1d9-4694-bdf8-a7fc962fa4d3"],
Cell[88167, 2379, 175, 3, 32, "Output",ExpressionUUID->"439f7009-ffe3-41dc-b769-54e8cd9d091e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[88379, 2387, 337, 9, 28, "Input",ExpressionUUID->"3ae8f813-f2b2-4f31-b1a2-7e652b396f08"],
Cell[88719, 2398, 158, 3, 32, "Output",ExpressionUUID->"3a8d5073-4b9e-4143-aec6-3ecb65bd74f6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[88914, 2406, 199, 4, 28, "Input",ExpressionUUID->"fbbb2592-2a78-4e97-905d-3d9bc3c2a2f7"],
Cell[89116, 2412, 182, 3, 32, "Output",ExpressionUUID->"48e6d899-7415-4e8e-aede-9b9c609c8122"]
}, Open  ]],
Cell[CellGroupData[{
Cell[89335, 2420, 375, 11, 45, "Input",ExpressionUUID->"92ba492a-72f5-439c-8de9-b2f5d66b79c0"],
Cell[89713, 2433, 175, 3, 32, "Output",ExpressionUUID->"50b816f5-74cb-4b16-8016-b90c3c09c594"]
}, Open  ]],
Cell[CellGroupData[{
Cell[89925, 2441, 309, 6, 28, "Input",ExpressionUUID->"2f70e729-9e70-410d-b7d0-b722fdee1421"],
Cell[90237, 2449, 503, 8, 32, "Output",ExpressionUUID->"c95c1f2c-38b3-459e-95e0-514682e85f6b"]
}, Open  ]],
Cell[90755, 2460, 156, 3, 28, InheritFromParent,ExpressionUUID->"25cd4e11-6d6e-452e-ab35-0111f8fec046"],
Cell[90914, 2465, 196, 4, 28, "Input",ExpressionUUID->"9aec949b-9131-48ce-acfe-c4858619d8ca"],
Cell[CellGroupData[{
Cell[91135, 2473, 396, 10, 45, "Input",ExpressionUUID->"8e9396ae-1cf7-4bce-9334-e80457831981"],
Cell[91534, 2485, 273, 6, 32, "Output",ExpressionUUID->"0ec6c86c-03ba-412b-967d-f8788a4a1070"]
}, Open  ]],
Cell[91822, 2494, 156, 3, 28, InheritFromParent,ExpressionUUID->"8a61e223-1514-4d80-bb23-4c041970d8a2"],
Cell[91981, 2499, 152, 3, 28, InheritFromParent,ExpressionUUID->"ae926af7-1c47-4511-8553-5d5d673f888a"],
Cell[CellGroupData[{
Cell[92158, 2506, 234, 5, 45, "Input",ExpressionUUID->"87230e01-578b-4bfa-9ed9-dab28026430b"],
Cell[92395, 2513, 235, 6, 32, "Output",ExpressionUUID->"353460f4-90d6-47c4-85f6-9eca985d1525"]
}, Open  ]],
Cell[92645, 2522, 297, 7, 45, "Input",ExpressionUUID->"357342ec-7a64-4d95-8ffb-2a23b71f1a18"],
Cell[92945, 2531, 337, 9, 28, "Input",ExpressionUUID->"70374bd4-3ec5-403d-86d2-246f6a0f6a91"],
Cell[CellGroupData[{
Cell[93307, 2544, 199, 4, 28, "Input",ExpressionUUID->"5ea5c3d0-051b-445d-8e46-4a844e318aba"],
Cell[93509, 2550, 184, 3, 32, "Output",ExpressionUUID->"35d420e8-a95c-4509-99cd-98140ef89bd8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[93730, 2558, 379, 10, 45, "Input",ExpressionUUID->"43e77abb-7636-4ad9-a529-c663257b6f71"],
Cell[94112, 2570, 348, 10, 34, "Output",ExpressionUUID->"ec107837-e418-40f8-8237-282d6d950e0b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[94497, 2585, 252, 6, 45, "Input",ExpressionUUID->"e0abd2fc-0b3e-4833-a396-3aa116bcd9a8"],
Cell[94752, 2593, 209, 5, 55, "Output",ExpressionUUID->"56f392f0-02b7-414c-b910-b40e2a7e87cc"]
}, Open  ]],
Cell[94976, 2601, 443, 11, 45, "Input",ExpressionUUID->"19fd68b6-eb78-499e-9288-a1aa7e339dcb"],
Cell[95422, 2614, 156, 3, 28, InheritFromParent,ExpressionUUID->"983652bd-f2d8-4006-8ed1-e74c513374a5"],
Cell[95581, 2619, 154, 3, 28, "Input",ExpressionUUID->"005a3a09-23d1-4bdd-9276-76d1fcd82b5a"],
Cell[95738, 2624, 154, 3, 28, "Input",ExpressionUUID->"5d87f8ed-f074-43f9-a156-460281f18cdc"],
Cell[95895, 2629, 247, 5, 45, "Input",ExpressionUUID->"74beb0b0-1f1d-419d-a709-85c4c4bc2259"],
Cell[CellGroupData[{
Cell[96167, 2638, 538, 11, 28, "Input",ExpressionUUID->"057fcff1-27b8-4d63-93da-5d6c4a802a3e"],
Cell[96708, 2651, 157, 3, 32, "Output",ExpressionUUID->"c19ceb70-c53b-4be7-9414-a69b2717d124"]
}, Open  ]],
Cell[CellGroupData[{
Cell[96902, 2659, 271, 7, 28, "Input",ExpressionUUID->"76ddea10-396b-4615-8e71-f459d7bc1b80"],
Cell[97176, 2668, 273, 5, 55, "Output",ExpressionUUID->"0ff99400-6152-432d-b3a5-92213a8076b9"]
}, Open  ]],
Cell[97464, 2676, 334, 7, 45, "Input",ExpressionUUID->"1143e8cb-3537-4914-ae9d-60d5f28b4142"],
Cell[CellGroupData[{
Cell[97823, 2687, 211, 3, 45, "Input",ExpressionUUID->"bf75c573-6548-4f30-a701-fcb4d053c286"],
Cell[98037, 2692, 179, 3, 32, "Output",ExpressionUUID->"b3b95d1d-eef9-4054-9875-ebee25e21fec"]
}, Open  ]],
Cell[CellGroupData[{
Cell[98253, 2700, 270, 7, 45, "Input",ExpressionUUID->"e42c1aa9-5205-4624-99c3-58d7635453a3"],
Cell[98526, 2709, 309, 5, 32, "Output",ExpressionUUID->"56f88be4-e823-4343-8f2e-4cd27a741a30"]
}, Open  ]],
Cell[98850, 2717, 387, 10, 45, "Input",ExpressionUUID->"85fc551f-5eff-45dd-aaf1-f3194444280f"],
Cell[99240, 2729, 270, 6, 28, InheritFromParent,ExpressionUUID->"60994807-6468-484b-b550-c8b6ec040b0b"],
Cell[CellGroupData[{
Cell[99535, 2739, 219, 4, 45, "Input",ExpressionUUID->"2873b9d6-91d8-485b-a6dc-fcd6ca4ba946"],
Cell[99757, 2745, 464, 13, 32, "Output",ExpressionUUID->"7f709b96-1ab9-44ac-a7f6-18bb424efb7f"]
}, Open  ]],
Cell[100236, 2761, 426, 9, 45, "Input",ExpressionUUID->"773e44bc-59c3-46d8-9bff-4ab44ab2b1b4"],
Cell[100665, 2772, 152, 3, 28, "Input",ExpressionUUID->"2fa72b0c-1629-416e-9594-ce8a945d63d7"],
Cell[100820, 2777, 184, 3, 28, "Input",ExpressionUUID->"06531a15-6b62-4a44-af33-3fe8c0ed3cf3"],
Cell[101007, 2782, 156, 3, 28, "Input",ExpressionUUID->"cc6c0f18-6133-4386-9dd2-cf6c84e122f0"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

